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-REM a 


IDENTIFICATION 


PRODUCT CODE: AC-F960A-MC 

PRODUCT NAME: CZRJMAQ RPO7 FE/HOST ISOLATOR 
PRODUCT DATE: JANUARY 1, 1983 

MAINTAINEP- CX DIAGNOSTIC ENGINEERING 
AUTHOR: MIKE LEAVITT 


| -_‘e- IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
OTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

FOUIPMENT CORPCRATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SO" TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORAT!ON 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE RPO7 FRONT END DIAGNOSTIC IS A PROGRAM WHICH PARTIALLY AUTOMATES 
THE gt ae goa TO ALLOW COMPUTERIZED SEQUENTIAL DIAGNOSIS 
OF AN RPO7. THE PROGRAM INITIALLY DEMONSTRATES HARDWARE INTEGRITY 
BETWEEN THE RHXX CONTROLLER, ASSOCIATED CABLING AND THe Orin oe 7 
LOGIC (DCL). Arent ion COMPLETION OF THIS PHASE OF TEST 


RPO 
SPECIFICALLY ALLOWING REMOTE EXECUTION, TO ASCERTAIN A REASONABLE 
LEVEL OF CONFIDENCE IN THE DISK DRIVE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE a a ag ye T. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE 8 gga OF THE RUNTIME SERVICES. REFER 
TO THE XXDP+ USER'S MANUA THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICCS IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


THIS PROGRAM, IN ORDER TO EXECUTE, WILL REQUIRE THE FOLLOWING 
SYSTEM HARDWARE : 


1. AN XXDP+ LOAD MEDIUM 
2. A CONSOLE KEYBOARD/PRINTER, 
3. A MINIMUM OF 28K WORD OF MAIN MEMO 
4. A PDP11 PROCESSOR AND APPROPRIATE mAgSBUS CONTROLLER WHICH 
CONFORMS TO (DEC STD 159) AND WHICH HAS A THROUGHPUT CAPACITY 
F 2.2 MBYTES /SEC OR GREA TER. 
5. AT LEAST ONE RPO7 WITH RHXX CONTROLLER 
1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USER*S MANUAL = CHQUS 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

ALL CPU, MEMORY, AND TERMINAL DIAGNOSTICS MUST RUN SUCCESSFULLY TO 
COMPLETION. 

1.5 ASSUMPTIONS 

NONE 


2.6 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


SEQ 0003 
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2.1 COMMANDS 


THERE ARE ELEVEN LEGAL wet: FOR THE hoeee” ae RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LiSTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN ty STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT — INTERRUPTED (AFTER *C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ grille ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED Mw BE ACTIVE AT START TIME 

DROP DEACTIVATE A _UNIT 

PRINT PRINT STATISTICAL INFORMATION (iF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE aaa SG 
YOU MAY, FOR EXAMPLE, TYPE ‘’STA’’ INSTEAD OF ‘’START’ 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF ny LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. » 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘‘DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE “ONLY “THOSE TESTS “SPECIFIED. IN 
THE LIS LIST ISAS TEST 


BE RUN. ALL OTHER TESTS WILL at a RUN. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS fe ttiwes se FLAGS ARE DESCRIBED 
/EOP: DDDDD REPORT END OF PASS MESSAGE rT on tice 

DDDDD PASSES ONLY. (DDDDD = 0 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1=5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 


EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 





ee 
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| SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "'/TES:1-5°' INSTEAD OF ‘‘/TESTS:1-5". 

| 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS €0P UNITS 


| START xX "x x x x 
| RESTART X x x x x 
CONTINUE x x x 
PROCEED Xx 
| DROP ¥ 
| ADD if 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS 
| EXIT 
2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START yr UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. phi THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL Is RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL dh LEVEL Sy ge 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRIN CRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL'* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON PIANOS TICS WHICH 


HAVE EVALUATION SUPPORT) 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 





— 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 

SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
PR INHIBIT ERROR REPORTS 

AND TYPE A "BELL ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES = PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) °° 
YOU MUST ANSWER *'Y'* AFTER A START COMMAND UNLESS THE HHARDWARE 
INFORMATION HAS BEEN “PRELOADED’’ USING ee SETUP eT (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘‘Y’', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


UNIT 0 
RPCS1 ADRS (0) 176700 ? 
VECTOR ADRS (0) 254 ? 
BR LEVEL (0) 5 ? 

DRIVE # (0) 0 ? 


THE 1ST QUESTION “'RPCS1 ADRS'* REQUIRES THAT THE USER INPUT THE 
ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 


THE 2ND QUESTION “VECTOR ADRS'* REQUIRES THE USER TO INPUT THE 
SEO OTTALY. VECTOR ADDRESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION "BR LEVEL" REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. DEFAULT IS LEVEL 5. 


THE 4TH QUESTION ‘DRIVE #** REQUIRES THE USER TO SPECIFY THE DRIVE 
NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS 0 (OCTAL). 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE sore ge THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME Seo ae or ECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY a vit W (L) 

IF You os TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

‘v'". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTION ASKS IF THE USER WANTS TO EXECUTE THE MASSBUS 
ith dg hil Mae THIS IS USEFUL IF THE USER IS RUNNING MULTIPLE 
PASSES AND DOES NOT WISH TO SLOW DOWN TESTING IN ORDER TO "SWITCH" 

THE MASSBUS INTERFACE SWITCH. 


SEQ 0006 





e 
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“EXECUTE TEST 25., MASSBUS INTERFACE SWITCH TEST (L) Y¥ ?°° 
| THE contentes QUESTION ASKS IF THE USER WANTS THE RPO7 figs ERROR 
LOG CONTENTS. THE ERROR LOG IN THE RPO? M*Y BE USEFUL AS A TROUBLE SHOOT ING 
TOOL , OAND AS SUCH MAY BE OUTPLT UPON REQUEST. 
“EXECUTE TEST 52., PRINT CONTENTS OF INTERNAL ERROR LOG (L) Y ?°° 
THE FOLLOWING QUESTION ASKS THE USER IF THE INTERNAL RPO7 READ/WRITE 
ROUTINE SHOULD BE LIMITED ONLY TO ONE TRACK. THIS MAY BE USEFUL 
TO HELP ISOLATE A SELECTED HEAD/CHIP FAILURE. 
“SELECT A TRACK FOR THE RPO7 INTERNAL RD-WRT TESTS (L) N ?°° 
THE FOLLOWING QUESTION ASKED ONLY IF THE ABOVE QUESTION IS ANSWERED 
otis’ ALLOWS A USER TO SELECT ONE HEAD FOR THE INTERNAL READ/WRITE 
“TRACK ADDRESS (D) 0 ?°° 
THE FOLLOWING QUESTION eas IF THE USER oF ge = RUN ONLY ONE 
MICRODIAGNOSTIC. IF THE ANSWER IS YES, AND THE MANUAL MODE OF 
OPERATION IS ENABLED, THE USER WILL BE INTERROGATED AS TO WHICH 
ROUTINE TO SELECT FOR EXECUTION. 
“EXECUTE TEST 60., SELECT A MICRO=DIAGNOSTIC FOR EXECUTION (L) N ?°' 
NOTE 


Teas THIS QUESTION HAS BEEN_ a 


~ m IS Be THE SELECTED ROUTINE 

ALW RUN WHEN THE TEST IS 
SELECTED FOR, gy tty THE ONLY WAY 
THE USER CHANGE THE 


SELECTED FOR. EXECUTION IS TO HALT THE 
PROGRAM VIA THE - TROL C_ (*C) 
MECHANISM AND ISSUE A NEW ‘START’ 
COMMAND. ANY OTHER METHOD OF vine te 
PROGRAM OPERATION WILL CONTINUE T 
EXECUTE THE ROUTINE PREVIOUSLY 
ACCEPTED AS INPUT FROM THE USER. 


2.6 EXTENDED P-TABLE DIALOGUE 
oe YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING poreis® 
A_TABLE THAT eo creases UNDER TEST. THE SIMPLEST 


UCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 


: 4% 
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A CONTROL MODULE WITH EIGHT UNITS Lrg tlie t ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. _ THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. eet ay IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


| 
| 
| 
| # UNITS (D) 2? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR vith e (0) ‘a 160000<CR> 
SUB=DEVICE # (0) 1<CR> 
Q-FACTOR (0) 1 ? *o<tR> 


UNIT 3 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


SUB=DEVICE # (0) ? 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ~ seri a (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR <a? (0) 160000<CR> 
SUB=DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON=DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO_NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
? 3<CR> 
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 


SEQ 0008 
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LET*S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?_ 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRES .. (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0? 1<CR> 


AS YOU CAN SEE_IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE ok gir! gu oy IN ANY 


N 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES — 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES — SPECIFIED. THE 
"="* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ABDRE SSeS. no INCREMENT weg = BY 2 SINCE ret prio MUST 


SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ?_ 160000<CR> 

SUB=DEVICE # (0) ?_ O=7<CR> 

Q-FACTOR (0) 0? 0,1,0,,.,1,1<CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 

1. BOFT XXDP+ 

2. GI\E THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 


rrr 





SEQ 0009 
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IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME’’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE ‘’START’’ 

5. ANSWER THE "'CHANGE HW'* QUESTION WITH ‘'y’’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE ‘‘CHANGE SW’* QUESTION WITH ‘'N’’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALAYS PRINTED UNLESS THE “IER FLAG is SET (SECTION 2.5). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ey NU +4" 
UNIT NUMBER = 0 - N IS Tid UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ern OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE ae 23 THAT CONTAIN SOME ADDITIONAL 
eee ABOUT THE oy THESE ARE ALWAYS PRINTED UNLESS 

S ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS dy flag CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “‘IER"’, 1 "OR “IXR"’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ime: 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 


REAR E TERA EEEA AREA RARE REET E EEE EER Ree 
~- COMPOSITE ERROR SET WHEN NOT EXPECTED - 


THIS MESSAGE IS GENERATED WHEN COMPOSITE ERROR IS FOUND TO 
BE SET WHEN IT SHOULD HAVE BEEN RESET. 
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Te TT TT TTT T TTT Titi tii t iii i titi ili tii titi titi itil itiiii iii iii iis 
= DRIVE HUNG, DRY NOT SET IN TIME = 

THIS MESSAGE IS GENERATED WHEW GO IS FOUND TO BE SET. THE 
FUNCTION IS TIMED, AND WHEN THE TIMING FUNCTION EXPIRES, THE ABOVE 
MESSAGE IS PRODUCED. 


Tec T TIT t titi ii iititititii iii iii titi titi titii iii iii titi tii 
- DRIVE WRITE LOCKED - 
THIS MESSAGE IS PRODUCED WHEN THE PROGRAM PREPARES TO EXECUTE A 
yt AND THE WRITE LOCK BIT (RPDS:WRL) IS FOUND TO BE 


RARER EEERE EEE REE ERE REE EEE EERE EEE EERE RRR E RRR E REE EERE 
! 
- DRIVE OFFLINE =- 


THIS an ae IS GENERATED WHEN THE PROGRAM PREPARES TO EXECUTE 
A_COMMAND AND THE MEDIUM ON LINE BIT (RPDS:MOL) IS FOUND TO BE 


CERRER REE E EERE REE EREEEER EERE EERE ERE E REE 
~- RPCS2: OR FAILED TO SET IN TIME - 


THIS MESSAGE IS GENERATED WHEN WHILE USING A TIMER, THE OUTPUT READY 
BIT (RPCS2:0R) IS FOUND TO BE RESET UNTIL THE TIMER FUNCTION EXPIRES. 


EERE RARER EERE EERE EERE AEE REE E RARER ERR REE REE 
= RPCS2:0R FAILED TO CLEAR IN TIME - 


THJ” -SESSAGE IS GENERATED WHEN WHILE USING A TIMER, THE OUTPUT READY 
" *CS2:0R) IS FOUND TO BE SET UNiIL THE TIMER FUNCTION EXPIRES. 

: 
| 


RERRE REE EREE RRR RR ERE ERRRE REE RE EEE EERE EERE RRR RE 
~ RH CONTROLLER DIDN'T RESPOND (NO SSYNC). - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM ATTEMPTS TO ACCESS THE 
CONTROLLER AT THE USER SPECIFIED ADDRESS, AND IT DOESN*T RESPOND. 


CARRERE REE EERE REE EE EEE EERE RRR ERR 
- BIT(S) UNDER TEST DIDN'T CHANGE STATE - 


THIS MESSAGE IS GENERATED WHEN THE REGISTER RESULTS ARE NOT THE COMPLIMENT 
OF THE REGIS"FR STATE Al THE START OF THE TEST. 


} 

| eect i iii iii titi iii iii iii iii iti tii iitiiiiiiiitititiiiiiitiiis! 

| ~ RPCS2:CLR DIDN'T FUNCTION PROPERLY - 

) THIS MESSAGE IS GENERATED WHEN THE PROGRAM FINDS THAT THE CONTROLLER 
| 
| 


SEQ 0011 


ce C.-C; er err —- 
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CLEAR FUNCTION DID NOT FUNCTION PROPERLY. 
OUST IIT IIIT TTT TTT iti titi titi iii titi i ti tii titi ii itisititiiiiit. 
= REG CONTENTS DON'T MATCH EXFECTED DATA = 


THIS MESSAGE IS PRODUCED WHEN EXTRA BITS SET OR CLEAR WHEN THEY ARE 
NOT EXPECTED TO FUNCTION IN THIS MANNER. 


eee TIC et Teri i titi tii i titi list ii itis ii iilitiiitiiiiiiiiiiiiiig) 

- REG DIDN'T CLEAR WHEN EXPECTED - 

THIS MESSAGE IS GENERATED WHEN A REGISTER DOESN'T RESET WHEN EXPECTED. 
Tete iit iti iti tisititiititiiiitiiiititiiiitititiiiiiiiititii iis, 

- SC OR TRE SET WHEN NOT EXPECTED - 


THIS MESSAGE IS GENERATED AS A RESULT OF DETECTING A TRANSFER ERROR 
(RPCS1: TRE) OR DETECTING AN UNEXPECTED ATA (RPCS1:SC) 


ett ititi titi iiiiiiiiiiiiii titi t iit iii irri titi 
- RPCS2:IR FAILED TO SET IN TIME = 


THIS MESSAGE IS GENERATED WHEN USING A TIMER, INPUT READY (RPCS2:IR) 
IS FOUND TO BE RESET AFTER THE TIMING FUNCTION HAS EXPIRED. 


eect etait iti ii titi iititiiiii iii tigi titi tiiiiiiiiticiiii iii t ite) 
= RPCS1, MCPE DIDN'T SET WHEN EXPECTED - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM FAILS TO DETECT A MASSBUS 
CONTROL PARITY ERROR (RPCS1, MCPE). 


REAR EERE ERR EER REE AEE EEE EEE EERE RARER eee 
- RPCS1, SC OR TRE DIDN'T SET WHEN EXPECTED - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM FORCES AN ERROR OR ATTENTION, 
AND THE RESULTING TRE OR SC IN RPCS1 DOES NOT SET. 


eect iti i tii t iii titi tii t is ii iii iti titi iti tii tititiiiiiiiiiiiiiit! 
~- BIT(S) UNDER TEST DIDN'T SET WHEN EXPECTED - 


THIS MESSAGE IS GENERATED WHEN THE STJMULUS AND THE RESULT DO NOT 
ogi AND THE RESULT WAS EXPECTED TO FORCE REGISTER BIT(S) TO TOGGLE FROM 


eect iti titi t iti titi ttt itt Titi i tit titi titi iti titi iiiititiii) 
~ BIT(S) UNDER TEST DIDN'T CLEAR WHEN EXPECTED - 


THIS MESSAGE IS GENERATED WHEN THE STIMULUS AND THE RESULT DO NOT MATCH, 
AND THE RESULT WAS EXPECTED TO FORCE REGISTER BITS TO TOGGLE FROM 


| 


| 
| 
| 
! 
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1 70 0. 
RARER ERE RETR ERERE EERE REE E EERE E TEETER ETRE Re ee eee ee eee eRe 
~- RH INTERRUPTED AT WRONG PRIORITY - 


THIS MESSAGE IS PRODUCED WHEN THE RH CONTROLLER INTERRUPTS AT A PRIORITY 
HIGHER THAN THE EXPECTED PRIORITY. 


TT TTITT TTT TTT TLL Ltt i citi tiie titi titi tii ii titi iii iii, 

~ RH GENERATED FALSE INTERRUPT = 

THIS MESSAGE IS PRODUCED WHEN THE RH IS TESTED TO HAVE NO PREREQUISITE 
CONDITIONS ‘WHICH COULD GENERATE AN INIERRUPT, YET DOES GENERATE AN 
INTERRUPT ANYWAY. 

TTTTITI TILL TLL TILL Litti citi iii ii ii ii iii iii iii 


= RH DIDN'T INTERRUPT WHEN EXPECTED - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM EXPECTS AN INTERRUPT BUT 
DOESN*T GET ONE. 


RE REEE EERE REE EE EERE REE ERE EEE EEE TEER EERE E TREE ERE 
= DRIVE NOT PRESENT, TEST INVALID = 


THIS MESSAGE IS GENERATED WHEN THE UNIT UNDER TEST IS FOUND TO 
BE NOT PRESENT. 


RARER EEK EERE ERE REE ERE ATTA TEE EEE RETR E RRR ERE 
- COMMAND EXECUTION INCORRECT - 


THIS MESSAGE IS GENERATED WHEN A COMMAND IS EXECUTED AND THE DRIVE 
DOESN'T RETURN THE CORRECT STATUS FOR THE COMPLETED OPERATION. 


eet ii ice tii ii iii titi tii ii titi iii iii ii tii iti iii iii iii aT 
= DATA LINES STUCK LOW - 


THIS MESSAGE IS GENERATED WHEN, sed ae A ‘"READ ALL TRACK DESCRIPTOR" 
OPERATION, THE DATA RECEIVED DOESN'T FORCE ALL 16 DATA LINES FROM A 0 TO 1. 


TTI TICI TIT TTT TTT TTT Titi tiie i titi it iti iit iiiiiiiiiiis| 
- FAILED TO SEEK PROPERLY - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM FAILS TO RECEIVE THE CORRECT 
STATUS FROM THE DRIVE UPON THE COMPLETION OF A SEEK OPERATION. 


TIT T ETI T TTI T TTT iT c TTT t titi i iii iti iti i titi iti iit itits) 
- DETECTED ERROR DURING WRITE DATA OPERATION - 
THIS MESSAGE IS PRODUCED TO ENABLE THE USER TO DISCERN BETWEEN READ 


as en ne ea es 


SEQ 0013 





eo 
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AND WRITE ERRORS. 
Pee TT IIIT titi ii ii ifiiiiiiititiiiiiiiiitiiiiiiiiiiiiiiiiiiii ss) 
- FAILED TO CORRECTLY DETECT w» WRITE CHECK ERROR - 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM FORCES A WRITE CHECK 
ERROR, BUT THE SRIVE FAILS TO POST THE CORRECT STATUS. 


Tet ii tit iii iii iitiiiiii iii iii iii rrr 
~ DETECTED ERROR DURING FORMAT OPERATION = 


THIS MESSAGE IS GENERATED TO ENABLE THE USER TO ISOLATE PROBLEMS 
WHICH OCCUR ONLY DURING A FORMAT OPERATION. 


Pt it iti iiiii titi iii iii iii rrr irri) 
- DETECTED ERROR DURING DATA TRANSFER = 


THIS MESSAGE IS GENERATED ANYTIME AN ERROR IS DETECTED DURING A 
DATA TRANSFER OPERATION OTHER THAN THE ONES MENTIONED ABOVE. 


RHRREREE ERE RER EEE RES REREEEEERERAAE EERE REET HERE ERE eee eee 
- FAILED AN RPO7 INTERNAL MICRODIAGNOSTIC TEST - 


THIS MESSAGE IS GENERATED ANYTIME THE PROGRAM DETECTS AN ERROR DURING 
THE MICRODIAGNOSTIC EXECUTION IN THE DRIVE. 


Itt iti titi liiiiti siti titiiiititiiiiiiiiiiititiiiiiiiiiiiit iri 
~ RHXX REGISTER SELECTION FAILURE - 


THIS MESSAGE IS GENERATED WHEN THE RH REGISTER SELECT TESTS FAIL. 
IT IS INDICATIVE OF A MULTIPLEXOR OR SELECT LOGIC FAILURE. 


TTT Titi ti eei titi tititiiiiiiiiiiiitititiviiiiiiiitititiiiiiiiii gy) 
= DATA RECEIVED DOESN'T MATCH EXPECTED DATA = 


THiS MESSAGE IS GENERATED WHEN THE PROGRAM COMPARES EXPECTED WITH 
RECEIVED DATA AND FINDS THAT THEY DON'T MATCH, INDICATING A READ ERROR. 


eee Titi titi ii iti ti tit itiiiiiiiiiititititiiiiiiiiiititiiiiiiiii gd, 

- DETECTED A PERMANENT ERROR - 

yg tats IS GENERATED WHEN RPDS, ERR=1 A'’sD RPER1, RPER2 AND RPERS ARE 
L . 


RESET AAAAEAEAAAREEAAAAAEAAEEEEAEAEEATEEEEEAEEE EERE EEEEEREEEEEEE 


~ INTERNAL RPO7 DIAGNOSTIC TIME-OUT - 


(ARRAS ASRARARARAASLELALE SALE SEALE AS ELE RR ARRAS ARAL ASE LAR SARA ES SS 


THIS MESSAGE IS GENERATED WHEN THE PROGRAM FINDS, USING A MAINTENANCE 


SEQ 0014 © 
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TIMER, THAT THE DIAGNOSTIC EXECUTION DID NOT COMPLETE WHEN THE TIMER 
FUNCTION EXPIRED. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE gee AE WAS STARTED. 
THE “EOP’’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST=DEVICE 
PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 
OF THE HARDWARE P-TABLES. 


-WORD 176700 ;RPCS1 BASE REGISTER ADDRESS 
~WORD 254 VECTOR ADDRESS 

-WORD 240 7BR LEVEL 5 DEVICE 

-WORD 0 :DRIVE NUMBER 


THE SOFTWARE P=TAGLE CONTAINS THE VALUES OF THE PROGRAM PARAMETERS 
THAN CAN BE CHANGED BY THE OPERATOR. 


SWITST: .WORD 1 USED TO SELECT MASSBUS INTERFACE TEST; 


:DISABLED= 

ERRDMP: .WORD 7 [USED TO ENABLE THE RPO? E 20R LOG DUMP 

SELTRK: .WORD 0 [USED TO SELECT A TRACK AD. °ESS IN THE MICRO- 
‘DIAGNOSTIC TEST 

TRAKAD: .WORD 0 [USED TO GET THE USER TRACK ADDRESS 

SELRUN: .WORD 0 [USED TO DETERMINE IF USER ELECTED A MICRO- 
‘DIAGNOSTIC TEST 


IN THE BASIC DRIVE TEST, THERE IS A a PROMPT oe ASKS THE 
OPERATOR TO DISABLE SWITCH A12-501 IN THE DRIVE. IF THE USER 
RESPONDS ‘NO"’, THE TEST IS BYPASSED. IF THE USER RESPONDS "VES" THE 


PON 
THE PROGRAM, UPON COMPLETION OF THE TEST, ASKS THE USER TO RE-ENABLE 
THE SWITCH. IF THE USER RESPONDS No THE PROGRAM LOOPS UNTIL THE 
SWITCH HAS BEEN RE-ENABLED AND THE USER RESPONDS ‘'YES"*. 


IF THE MANUAL MODE OF OPERATION IS ENABLED AND THE USER HAS, 

THROUGH THE SOFTWARE QUESTIONS, INDICATED THAT ONE MICRO-DIAGNOSTIC 
IS TO BE SELECTED FOR EXECTUION, THE USER WIL_ BE ASKED TO INPUT 

A 2 CHARACTER HEX ENTRY WHICH WILL ALLOW SELECTION AND EXECUTION 

OF THAT PARTICULAR MICRO-DIAGNOSTIC. 


6.0 TEST SUMMARIES 


THE FOLLOWING REPRESENT A_ GENERAL LIST OF TESTS WHICH 

WILL BE PERFORMED 10 THE RH/70 CONTROLLER. THOSE TESTS 
MARKED WITH AN ASTERISK (*) wit NOT BE EXECUTED WHEN AN 
RH11 CONTROLLER IS DETERMINED TO BE THE RPO7 INTERFACE. 


| 
| 
| 
| 
| 
| 
| 
| 
| 


coco 


—— -——_- S CL c -- ee — 
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TEST 1: UNIT UNDER TEST 


seLects A STR te) he CONTROLLER AND ASCERTAINS 
THAT THE C OLLER DOES INDEED EXIST, IE VALID 
SSYN RESPONSE 


TEST 2: RP CLEAR TEST 


THIS TEST ASCERTAINS CORRECTNESS OF THE DEVICE CLEAR 

FUNCTION BY WRITTING RPBA TO ALL _ONES, SETTING RP CLR 

(BIT 5) ate AND PROVING aes! AT LEAST SOME OF THE 
DID EAR IN RPBA. IT IS NOT THE INTENT OF 

THE PROGRAM, AT THIS TIME, TO PROVE THE CORRECTNESS 

OF THE RPBA REGISTER, - IS JUST TO PROVE THAT THE 

RPCLR FUNCTION DOES WORK 


TEST 3: RPCS2 STATIC FUNCTIONAL TEST 


rere WALKS A ONE, ZERO, ALL ZEROS, ~. oat THROUGH 
an RANGE WILL BE FROM BIT OT T 2. 

EXECUTE A DEVICE CLEAR (RPCS2: CLR) AND ENSURE 

THAT REGISTER DID RESET. 


TEST 4: RPWC STATIC FUNCTIONAL TEST 


THIS TEST WALKS A ONE, ZERO, ALL ONES THROUGH RPWC. WRITE RE- 
GISTER TO ZERO, AND ENSURE THAT REGISTER DID RESET. 
BITS TO TEST = BIT 0 = BIT 15. 


TEST 5: RPBA STATIC FUNCTIONAL TEST 


THIS TEST WALKS A ONE, ZERO, ALL ZER/A, ALL ONES THROUGH RPBA. 
ALLOW A DEVICE CLEAR AND CHECK THAT REGISTER DID 
RESET. BITS TO TEST = BIT 1 = BIT 15. 


TEST 6: SC AND TRE TEST #1 (RH11 ONLY) 


THIS TEST WILL TEST RPCS2, MXF (BIT 09) TO ae SET AND 

CLEAR. ONCE PROVEN FUNCT IONALLY CORRECT, SET THE 

BIT (RPCS2, MXF) = 1 AGAIN AND OBSERVE R SC 
AND RPCS1, TRE. BOTH BITS SHOULD BE SET DUE TO 
MISSED TRANSFER (RPCS2, MXF = BITO9) BEING SET. 
SET RPCS2, CLR = 1 AND ENSURE THAT BITS CLEARED. 


TEST 7: IR AND OR TEST 
THIS TEST WILL TEST RPCS2, IR TO SET AND ENSURE THAT IT DOES 
WITHIN A FIXED TIME LIMIT. WHEN IT SETS, WRITE RPDB ONCE 
AND THEN TEST FOR RPCS2, OR TU SET WITHIN A FIXED 
TIME LIMIT. 

TEST 8: RPDB READ/WRITE TEST #1 
THIS TEST waives RPDB be 3 DATA PATTERNS ere ML OCeeD WITH 
THE _ CORRECT SIT 


AN OF HEN 
RPCS2, OR SET, READ RPDB AND CHECK DATA FOR CORRECTNESS. 


SEQ 0016 


Se a Fy 


—_———— 
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| 
| 
RPCS FOR THE 
RESET. 
DID RESET. 
ONLY SET ENSUR 
BIT 0) ALSO=1. I 
Al7 ONLY SET EN 
PBAE (BIT 1) ALSO = 
THE BIT UNDER 


TEST 9: RPDB READ/WRITE TEST #2 


THIS TEST WRITES RPDB TWICE WITH THE SAME DATA PATTERN, INTERLOCKED 
WITH THE CORRECT TRANSITION OF RPCS2, IR. READ RPDB TW! 
INTERLOCKED WITH THE CORRECT TRANSITION OF RPCS2, OR, AND ENSURE 
THAT DATA IS CORRECT. 


TEST 10: RPDB READ/WRITE TEST #3 


THIS TEST WRITES A ae TO RPDB USING 8 DIFFERENT DATA PATTERNS, 
INTERLOCKED WIT THE CORRECT TRANSITIONS OF 
RPCS2, IR. READ RPDB A AND_ VERIFY CORRECTNESS OF 
pass. G ‘aetna WITH THE CORRECT TRANSITIONS OF 


TEST 11: *MDPE, SC AND TRE TEST #2 


THIS TEST WILL SET RPCS2, PAT=1. ENSURE THAT SC AND TRE IN RPCS1 
- ENSURE THAT ine or DID NOT SET. al TE 

RPDB ONCE AND VERIFY THAT RPCS1 SC AND ca 1, DUE TO THE 

INVERTED (WRONG) PARITY. CHECK RPCS2, MDPE = 1. SET RPCS2, 

CLR AND ENSURE THAT BITS DID CLEAR. 


TEST 12: *RPCS3 STATIC FUNCTIONAL TEST 


Hes eat | a A ot te ALL ZEROS, ALL_ ONES THROUGH 
3, ANGE BITS O-3 AND BIT 
EXECUTE A DEVICE CLEAR AND. ENSURE THAT REGISTER DID 


TEST 13: *RPBAE STATIC FUNCTIONAL TEST 


THIS TEST WALKS A ONE, ZERO, ALL ZEROS, ALL ONES THROUGH 
RPBAE. ISSUE DEVICE CLEAR AND ENSURE THAT REGISTER 


TEST 14: *TEST DUPLICATED ADDRESS BIT 16 


a. TEST WILL RESET DEVICE AND SET RPCS1 A16 = TEST THAT A116 
° E THAT CORRESPONDING BIT IN RP BA E 

( SSUE DEVICE — AND ENSURE 

THAT CORRESPONDING BITS DID CLEAR 


TEST 15: *TEST DUPLICATED ADDRESS BIT 17 


THIS TEST WILL RESET THE oeuice AND SET RPCS1 a > _ TEST THAT 
° SURE THAT CORRESPONDING BIT I 

RPBAE ( 1. ISSUE DEVICE A ae AND EN 

SURE THAT CORRESPONDING BITS DID CLEAR 


TEST 16: TEST RPCS1 INTERRUPT ENABLE BIT 
THIS 4 to with RESET bevice | RPCS 


THAT TEST $ 
CLEAR AND ENSURE THAT CORRESPONDING BITS D 


— 
n— 


a = 1. ENSURE 


SEQ 0017 


—_—-——__---——--—_ —_——-——- - — ee 
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TEST 17: *TEST DUPLICATED INTERRUPT ENABLE BIT 


THIS TEST SETS at gl IE (BIT 06) = 1. ENSURE THAT RPCS3:1E 
ALSO SETS. ISSUE DEVICE CLEAR AND ENSURE THAT AP- 
PROPRIATE BITS CLEAR. 


| 

| 

| TEST 18: *IPCKO TEST 

THIS TEST WILL ve ne — ice _ je (RPCS3 BIT 0)=1. 
CHECK THAT (RPCS2 I T 6) ) WITHIN A_ TIME 
PERIOD. WHEN IT DOES. OURITE 05 (ONCE) INTO RPDB. 

E . TRE AND be READ 

RPDB ay (RPCS2 OR 


1) AND_(RPCS2 MDPE SHOULD 
1 SECOND INITIALIZATION AND DEVICE SHOULD 
CLEAR OUT. 


TEST 19: *IPCK1 TEST 


THIS TEST WILL ISSUE DEVICE lek THEN SET IPCK1 (RPCS3 BIT 1)=1. 
CHECK THAT (RPCS2 IR = 1) WITHIN A TIME PERIOD. 


WHEN IT DOES, WRITE O°S (ONCE) INTO RPDB. 

THIS SHOULD FORCE (R he Hn AND SC = 1). READ 
RPDB WITH (RPCS2 OR = 1) AND (RPCS2 MDPE (BIT 7) 
SHOUL 0 SECOND INITTALTZATION AND DEVICE 
SHOULD CLEAR OUT. 


TEST 20: *IPCK2 TEST 
nat TEST ‘ILL ye gi ony ett IPCK2 (RPCS3 BIT 2)=1. 


T 
WITH (RPCS2 OR = 1) AND (RPCS2 MDPE SHOULD. 
++ SECOND INITIALIZATION AND DEVICE SHOULD CLEAR 


TEST 21: *IPCK3 TEST 


THIS TEST WILL er DEVICE CLEAR, THEN ~ IPCK3 (RPCS3 BIT 3)=1. 
a THAT (RPCS2 I 1). WHEN IT S, TE 
RPBD niee Hy (TWICE). CHECK FOR SAME ERRORS AS 14 
ABOVE. SSUE DEVICE CLEAR AND ENSURE THAT DEVICE 
DID CLEAR. OUT. 


TEST 22: RHXX INTERRUPT TEST # 1 
THIS TEST FORCES THE RHXX CONTROLLER TO INTERRUPT FROM THE wie st 
PRIORITY Level DOWN TO AND INCLUDING THE USER SPECIFIED PRIORITY 
LEVEL. IF THE DEVICE DOES ACTUALLY GENERATE AN INTERRUPT WHICH DOES 
GET RECOGNIZED BY THE PROGRAM, THE CONTROLLER PRIORITY CIRCUITRY IS 
TEST 23: RHXX INTERRRUPT TEST #2 
THIS TEST ASSUMES THAT SC=0 AND RPDS, ATA ALSO=0. IT THEN 


SEQ 0018 


ga ee ee nen -~+--———-— + -- —- 
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ARMS THE CONTROLLER FOR AN gity wt WHICH IT DOES NOT EXPECT 
TO RECEIVE. IF IT DOES, AND THERE IS _NO APPARENT REASON FOR HAVING 
RECEIVED IT, IE SC=0 AND RDY DID NOT TOGGLE, THEN A HARDWARE MALFUNCTION 


MAY BE ASSUMED. 

TEST 24: RHXX INTERRUPT TEST #3 
THIS TEST SETS THE PRIORITY TO ONE LESS THAN THE USER SPECIFIED PRIORITY. 
IT THEN ARMS AN INTERRUPT AND FORCES THE CONTROLLER TO TOGGLE RDY. THESE 
ACTIONS SHOULD GENERATE AND NTERRUPT TO THE CORRECT VECTOR ADDRESS. 
IF THE INTERRUPT DOESN'T OCC-JR, OR OCCURS AT THE WRONG ADDRESS, A 
HARDWARE MALFUNCTION IS ASSUMED. 

TEST 25: BASIC DRIVE SELECT TEST 
THIS TEST REQUIRES MANUAL INTERVENTION. IT WILL BE SKIPPED IF 
hg ve nest IS RUN IN UNATTENDED MODE, ae THE 4 passeus: nN" 


TION: "FOR DRIVE) N, WILL YOU PLACE T s 
er +t sr’ “use. IN _THE ‘DISABLED’ (DOWN) yet | aad 


| UNDER H SSBUS 
(RPDT) AND VERIFY THAT NO DRIVE RESPONDS TO THIS ODRIVE'S 
ADDRESS (REGISTER SHOULD = 0). WHEN THE TEST IS COMPLETE, THE USER 
WILL BE REQUIRED TO RE-ENABLE THE MASSBUS DISABLE SWITCH JN ORDER 
| TO RUN ALL OTHER TESTS. 
TEST 26: DEMAND AND TRANSFER TEST 
THIS TEST WILL READ DRIVE TYPE REGISTER (SHOULD NOT EQUAL 0), 
IGNORE DATA AND ERRORS. THE DRIVE TYPE REGISTER SHOULD NOT i VELSE THE TEST 
WILL FAIL. 
TEST 27: UNIQUE UNIT UNDER TEST 


THIS TEST WILL GUARANTEE THAT A UNIT UNDER TEST DOES NOT RESPOND 
TO ANY OTHER DRIVE ADDRESS ON THE MASSBUS. 


WRITE DATA PATTERN 46(8) TO REGISTER O OF DRIVE UNDER TEST 
WRITE O°S TO REGISTER O OF ALL OTHER DRIVES ON THE BUS. 


AFTER WRITING EACH DRIVE ON THE BUSS, READ AND VERIFY THAT REGISTER 
0 IN THE DRIVE UNDER TEST HAS NOT BEEN MODIFIED. 


TEST 28: READ DRIVE TYPE TEST 


THIS TEST WILL READ DRIVE TYPE REGISTER AND ACCEPT 200/2, 24042. 
ANY OTHER VALUE WILL PRODUCE AN ERROR MESSAGE. 


TEST 29: RPDA CONSTANT'S TEST 


THIS TEST WILL WRITE-READ-VERIFY 1°S AND O'S IN RPDA, AND 
AND FLOAT 1°S AND 0°S THROUGH RPDA. 


TEST 30: PARITY BIT TRANSITION TEST 
THIS TEST WILL VERIFY THAT PARITY BIT SENT FROM DRIVE TO RHXX IS 


SEQ 0019 


a -- — —- ee 
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| NOT STUCK AT 1 OR 0. (USE RPDA REGISTER) 
WRITE 000000 => P=1 READ/CHECK FOR gpakity 
(SHOULD NOT GET A CONTROLLER PARITY 

WRITE 000001 ND OREAD/CHECK FOR PARITY 
(SHOULD NOT GET A CONTROLLER PARITY ERROR) 


TEST 31: FLOATING DATA PARITY TEST 
VERIFY THAT NO PARITY ERROR SET IN RPER1. 


TEST 32: REGISTER SELECT TEST 1 


TEST ARE; RPCS1, RPDA, RPDC, RPOF. 
TEST 53: REGISTER SELECT TEST 2 


RS ee ne en oe . 


WRITEABLE REGISTERS 0, 5, 11, 12 
STERS 


DATA =_0 R_REGISTE 
WRITE 70(8) INTO SOME MASSBUS WRITEABLE REGISTER 


THIS TEST WILL WRITE ALL 1°S AND ALL 0°S, THEN oy 1°S AND 0°S 
THROUGH RPDA, READING RPER1 AFTER EACK WRITE, A 


yt Raa WILL WRITE EACH WRITEABLE REGISTER WITH THE PATTERN 
READ IT BACK AND VERIFY FOR CORRECTNESS. REGISTERS USED IN THE 


ENSURE THAT EACH WRITEABLE REGISTER HAS A UNIQUE ADDRESS. 


WRITE O'S TO EVERY OTHER ADDRESSABLE REGISTER ON THE MASSBUS. 


AFTER PACH WRITE (STOP=2), READ AND VERIFY THAT THE REFERENCE 
REGISTER ye MODIFIED (IF SO, IDENTIFY CONTROL LINE PAIR BY 


aeeraree & ERS 
REPEAT 1 = 3 FOR ALL WRITEABLE REGISTERS. 


TEST 34: DATA TEST RPMR1 


THIS TEST viet WRITE, READ/VERIFY THE MAINTENANCE REGISTER (RPMR1) 


USING PATTER 
FLOAT 0°S 
FLOAT 1°S 
POSSIBLE FAULT: J8 
TEST 35: MASSBUS INITIALIZE DRIVE CLEAR TEST 


THIS TEST WILL SET RPMR1: DMD = 
DM MARK THE EVENT. eas 


DID AGAIN 

IF DMD DIDN'T CLEAR WITH EITHER RPCS2, CLR 
DRIVE CLEAR COMMAND, POSSIBLE FAULTS ARE: 
IF DMD DIDN'T SLEAS WITH RPCS2, CLR, I 


BUT DID C 
WITH DRIVE el COMMAND, POSSIBLE FAULTS ARE J12, 


CABLE, 


OR TH 
IF DMD DIDN'T CLEAR WHEN DRIVE CLEAR COMMAND WAS 
EXECUTED, BUT DID CLEAR WHEN RPCS2, CLR WAS ASSERTED, 


x ta = Big Oe CLR. 
THEN BSint eave CLEAR COMMAND. VERIFY THAT DMD 


CHECK 


SEQ 0020 
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POSSIBLE FAULTS ARE J11, OR J12. 
TEST 36: PARITY INITIALIZE TEST 


THIS TEST WILL CHECK PARITY FOLLOWING MASSBUS INITIALIZE. 
ee CEA THEN READ RPER1 AND VERIFY THAT RPER1, PAR AND ILF 


fact, 
| 
| 
| 
| 
TEST 37: PARITY ERROR DETECTION TEST 


IMPLIED IN THIS TEST IS THAT THE PREVIOUS TEST DID 

SUCCESSFULLY PASS. THIS TEST CREATES A ‘DOUBL : 

FAULT*’, WHICH IS USED TO DETERMINE THAT i PARITY 

DETECTION ciRcuITS WORK PROPERLY, AND THAT ANY COMMAND IS 

REJECTED WHEN A PARITY ERROR IS DETECT 

THE PROGRAM WILL SET ee PAT AND ISSUE A KNOWN ILLEGAL COMMAND, 
CHECK RPCS1 AND VERIFY THAT GO (BIT 0) DID RESET 

READ RPER1 AND CHECK FOR FOLLOWING: 


1. IF RPER1, PAR Is THE ONLY ERROR BIT SET, 
THERE WAS NO ERROR, 

2. IF pRPER 1, ILF IS THE ONLY ERROR BIT FOUND, 

3. IF RPER1, ILF AND PAR ARE BOTH SET OR BOTH 
CLEAR, REPLACE EITHER J R J12. 
(THERE IS A GOOD CHANCE THAT THE 2901 IS BROKEN.) 


TEST 38: CORRECT PARITY TEST 
THIS TEST CHECKS A VARIETY OF DATA PATTERNS AND 
VERIFIES THAT NO PARITY ERRORS OCCURRED. THE OPERATING 
SEQUENCE IS AS FOLLOWS: 
1. LOAD th PATTERNS INTO THE RPDA REGISTER, 


2. READ THE RPDA REGISTER AND ENSURE THAT RHXX 
ig Bal DETECT ANY PARITY ERRORS. 


Ss 
FLOAT 0°S 
TEST 39: CLEAR COMPOSITE ERROR BIT TEST 
THIS 7 ENSURES THAT RPDS, ERR IS NOT coven AT A 
ONE. IF IT IS (1) AND RPER1, RPER2 AND RPER3 ARE 0, A PERMANENT 
ERROR IS REPORTED, ELSE A COMPOSITE ERROR is REPORTED. OPERATING 
SEQUENCE IS AS FOLLOWS: 


1. ISSUE A CONTROLLER CLEAR. 
2. READ RPDS AND ENSURE THAT ERR (BIT 14) IS CLEAR. 


TEST 40: SET AND CLEAR COMPOSITE ERROR TEST 


THIS TEST ENSURES THAT COMPOSITE ERROR RPDS, BIT 
14 WILL SET AND CLEAR. SEQUENCE IS AS FOLLOWS: 


ede abd tae eee bc ok ees 








4g 
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1. SET PAT IN RPCS2, THEN WRITE DATA TO RPDA. 
| THIS SHOULD CAUSE A PARITY ERROR, 

2. READ RPDS AND CHECK THAT RPDS, ERR=1. ALSO 

PAR IS ALSO SET. 
3. ISSUE A CONTROLLER CLEAR, 
4: READ RPDS AND ENSURE THAT ERR (BIT 14)=0. READ 
RPER1 AND ENSURE THAT PAR (BIT 3)=0. 


TEST 41: CLEAR ATA TEST 


THIS TEST ENSURES THAT RPDS, ATA (BIT 15) IS NOT 
STUCK AT 1. SEQUENCE IS AS FOLLOWS: 


1. ISSUE CONTROLIER CLEAR. 
2. READ RPDS, ATA AND VERIFY THAT IT IS CLEAR. 


TEST 42: SET AND CLEAR ATA TEST 


THIS TEST, BY FORCING AN ERROR, TESTS THE CORRECT 
FUNCTIONALITY OF RPDS, ATA. SEQUENCE FOLLOWS: 


1. SET at PAT (BIT 04)= te THEN WRITE DATA TO 
RPDA, ORCIN “4 A PARITY 

- READ RPDS AN D_ CHECK ATA ert °15) AND ERR (BIT 14) 
TO BOTH BE SET, 

. ISSUE A DRIVE CLEAR, 

- READ noes AND VERIFY THAT ATA (BIT 15) AND ERR 
(BIT 14) DID BOTH CLEAR, 

- REPEAT STEP 

. SET RPCS2, CLR (BIT 5), 

. REPEAT STEP 4. 


TEST 43: CLEAR RPAS TEST 


THIS TEST ENSURES THAT NO BITS ARE SET IN RPAS. 
SEQUENCE IS AS FOLLOWS: 


1. SET RPCS2, CLR (BIT 5)=1 
2. READ RPAS AND ENSURE THAT IT IS CLEAR. 


NOTE 


IF THIS TEST IS FAILED, THE CONTENTS 

THE PSEUDO road (RPAS) WILL BE 
PRINTED OUT, AND THE CONTENTS OF THE 

Stan REGISTER FOR EVERY OTHER ag he 

N THE MAS F THE CAUSE OF 

EACH DRIVE. MAY NEED TO BE POWERED 

DOWN ONE AT A TIME, UNTIL THE BAD 

DRIVE IS FOUND. 

TEST 44: RPAS CORRECT POSITION DECODE TEST 


THIS TEST CHECKS FOR THE CORRECT POSITION OF _ THE 
BIT DECODED IN THE PSEUDO REGISTER. SEQUENCE OF TEST FOLLOWS: 


a a a ee ee 


SEQ 0022 


' 
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SET Aig Fe CLR (BIT 05)=1, 

SET PAT IN Ratse. ae WRITE DATA TO RPDA, 
FORCING A PARITY 

READ RPAS AND VERIFY THAT BIT POSITION 3 CORRECT 
FOR THE DRIVE wit i ott.” VERIFY 

THAT RPDS, ATA AND ERR IS ALSO SET 
WRITE RPAS WITH THE CORRECT BIT FOR THE DRIVE 


UNDER TEST. 
READ RPAS AND VERIFY THAT IT DID CLEAR. READ 
Sot cucer ENSURE THAT ATA CLEARED, BUT ERR DID 


TEST 45: RPAS UNIQUE POSITION DECODE TEST 
THIS TEST VERIFIES THE UNIQUENESS OF THE PSEUDO REGISTER'S BIT 


WHICH CORRESPONDS TO THE UNIT-UNDER-TEST. SEQUENCE IS AS FOLLOWS: 


SET RPCS2, CLR=1, 

SET RPCS2, oe ah AND WRITE DATA TO RPDA, FORCING YET 
sop tig 4 PARITY 

READ RPAS AND ENSURE “THAT THE PROPER BIT IS 

ET. NSURE THAT RPDS, ATA AND ERR ARE ALSO SET. 
WRITE THE PSEUDO REGISTER WITH THE COMPLIMENT 

OF THE EXPECTED DATA IN ITEM 3, 

READ RPAS AND ENSURE THAT THE BIT FOUND IN ITEM 

3 DID NOT CLEAR. VERIFY THAT RPDS, ATA AND ERR 

DID NOT CLEAR. 


TEST 46: CLEAR MASSBUS ATTN TEST 
THIS TEST VERIFIES THAT MASSBUS ATTN IS NOT STUCK 


ATA 1. 


s 
2. 


SEQUENCE IS AS FOLLOWS: 
SET RPCS2, CLR=1, 
READ RPCSi AND VERIFY THAT SC (BIT 15) DID NOT 
SET (FOR RH20, ENSURE THAT ATTN=0). 
NOTE 


IF ANOTHER DRIVE IS SUSPECTED TO BE 
CAUSING THE MALFUNCTION, EACH DRIVE 


ONE 
T A TIME, UNTIL THE OFFENDING UNIT 
IS LOCATED. 


TEST 47: SET AND CLEAR MASSBUS ATTN 
gt Fs 1 VERIFIES THAT THE MASSBUS LINE ‘‘ATTN’’ CAN 


1. 
2. 
3. 


D CLEARED. SEQUENCE FOLLOWS: 


SET RPCS2, PAT=1, AND WRITE RPDA WITH DATA, 
FORCING A PARITY ERR 

READ RPCS1, $C (BIT 985 AND VERIFY THAT IT SET. 

(USE "'ATIN™ IN RH20.), 

SET RPCS2, dae 1, AND ENSURE THAT RPCS1, SC DID CLEAR. 


SEQ 0023 


—- + Fy 


ro - - 


| 
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TEST 48: READ-IN-PRESET COMMAND TEST 


THIS IS_THE FIRST TEST TO ISSUE A VALID COMMAND TO 
THE Ag IT ENSURES THAT COMPOSITE ERROR DOES NOT 
T AS A RESULT OF THE COMMAND EXECUTION. SEQUENCE FOLLOWS: 


- SET RPCS2, CLR=1 
ISSUE READ-IN-PRESET COMMAND, 
- VERIFY THAT RPDS, ERR=0. 


TEST 49: RHXX UNIQUE REGISTER TEST 
THIS TEST LOADS EACH WRITABLE erie ag hh WITH A 
UNIQUE DATA PATTERN, AND EXPECTS THAT THE PATTERN 
WILL NOT CHANGE AS FURTHER REGISTERS ARE WRITTEN. 
TEST 50: RPLA STATIC TEST 
THIS TEST CHECKS RPLA FOR EVERY VALID SECTOR ADDRESS. 
IF, WHILE USING A MAINTENANCE TIMER, A SECTOR ADDRESS IS NOT 
FOUND IN TIME, AN ERROR IS REPORTED. 
TEST 51: RPMR1 = RPER2 WRAP AROUND TEST 
a Ll at i WRITE RPMR1 = LOW BYTE AND, AFTER WAITING A REASONABLE 
AMOUNT OF TIME FOR my AND _F [RMWARE oy EXPECTS RPER2, LOW BYTE, 
TO CONTAIN THE SAME DATA AS JUST WRITTEN INTO RPMR1. IF THE 
DATA IS NOT THE SAME, A HARDWARE MALFUNCTION. MAY BE ASSUMED. 
TEST 52: ERROR LOG DUMP 


THIS ROUTINE UNLOADS THE RPO7_ INTERNAL ERROR LOG WHEN IT WAS REQUESTED 
BY THE USER. CONTENTS ARE NOT CHECKED, JUST REPORTED TO THE USER. 


TEST 53: COMPOSITE MICROCODE TEST 
THIS TEST IS _A COMPOSITE TEST WHICH RUNS ALL OF THE AVAILABLE RPO7 
MICRODIAGNOSTICS. THE ROUTINE EMULATES THE RPO7 POWER UP SEQUENCE. 
ERROR CODES ARE REPORTED IN HEX AS ARE THE ROUTINE NUMBERS WHICH WERE 
RUNNING AT THE TIME OF THE FAILURE. 
TEST 54: READ-IN-PRESET FUNCTIONAL TEST 
THIS TEST SETS UP RPDC, RPDA = -i, AND SETS RPOF:FMT16=1. IT THEN 
ISSUES A RIP AND EXPECTS RPDC AND RPDA TO BE ZERO. IT-ALSO EXPECTS 
RPDC AND RPDA TO BE ZERO. IT ALSO EXPECTS RPOF:FMT TO BE RESET. 
TEST 55: COMMAND REJECT TEST 
THIS TEST, INVERTS PARITY AND ISSUES A RIP COMMAND. IF THE 
COMMAND EXECUTED WITH A PARITY ERROR PRESENT, IE RPDC OR RPDA=0 
OR FMT16=0, THEN A HARDWARE MALFUNCTION MAY BE ASSUMED. 
TEST 56: DATA TEST # 1 


THIS TEST EXECUTES IN THE FOLLOWING MANNER; 
READ TRACK DESCRIPTORS FROM ANYWHERE ON THE 


wn 
© 


SEQ 0024 


oe Hy 
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PACK. THE PURPOSE IS TO ENSURE THAT THE DATA 
Lies "HAVE. “T ig SY PROCESS ty ALL TESTABLE 


IGNORE ALL ERRORS; THEY MAY BE CAUSED BY CORRUPTED 
TRACK DESCRIPTOR RECORDS. 


IF AFTER READING EVERY TRACK AND CYLINDER ON THE DRIVE, ALL 
oe RESORTED HAVE NOT TOGGLED FROM 0 TO 1, AN ERROR WILL 


TEST 57: DATA TEST #2 
THIS TEST EXECUTES IN THE FOLLOWING MANNER: 


1. ATTEMPT TO ACCESS A C.E. CYLINDER WITHOUT SETTING 
RPMR1:DMD_ (BIT 15). EXPECT RPER1, IAE TO SET. 
ISSUE A RECAL COMMAND, THEN CHECK RPCC = 0. 

ATTEMPT TO AC Y 


C.E. CYLINDER WITH 
RPMR1: DMD=1, VERIFY CORRECT POSITION BY COMPARING 
RPDC WITH RPCC. 


TEST 58: DATA TEST #3 
THIS TEST EXECUTES IN THE FOLLOWING MANNER: 


1. ATTEMPT TO FIND A_ DEFECT FREE (C.E. TRACK BY 
1 tee ike PRESENCE OF A_TD WITH NULL SET Leh teat wr 9 


2. FORMAT TRACK AND VERIFY SAME (USING NULLSET INFORMATION). 
3. oe SIMPLE DATA TESTING ON THE FORMATTED 


SIMPLE DATA TESTING TO INCLUDE: 


| 
| 
| 
| 
1. WRITING DATA PATTERNS WITHOUT ERROR. _RPWC 
WILL BE TESTED TO = 0, RPBA WILL BE TESTED 
TO INCREMENT. 
2. WRITE CHECK DATA FORCING A WRITE CHECK 
ERROR. BUFFER POSITION OF THE ERROR WILL 
BE VERIFIED USING THE RPBA REGISTER. 
3. WRITE CHECK DATA WITHOUT ERROR. 
4. ISSUE A RIP COMMAND, FOLLOWED BY 
READ HEADER AND DATA COMMAND ON CYL 630 TRACK JUST 
FORMATTED. VERIFY THAT RPER1, FER DID SET. 
| 


TEST 59: RPER1 NEGATIVE BIT TEST 
THIS 7" ISSUES AN ILLEGAL a. AND EXPECTS 7 ILF TO 
SET. IT THEN ISSUES A COMMAND WITH THE WRONG SECTOR, WRONG 
TRACK ADDRESS AND EXPECTS RPERT. iAE 16 Ser AFTER EACH COMMAND. 
TEST 60: USER SELECTED MICRODIAGNOSTIC ROUTINE 
THIS TEST, IF MANUAL ith ops ghey 1S ALLOWED AND THE we kterion 


USE OF THE SOFTWARE QUESTIONS, DID ANSWER ‘YES’ TO THE Q 
"DO YGU WANT TO SELECT ONE MICRODIAGNOST IC FOR EXECUTION?*, WILL 


SEQ 0025 


a 


t— 
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ALLOW THE USER TO SPECIFY A +; bey dar re det ROUTINE FOR EXECUTION. 
ONLY LEGAL ‘HEX* CHARACTERS WILL BE ACCEPTED AS INPUT. ANY PAIR 
OF HEX CHARACTERS WILL BE ACCEPTED. IT IS UP TO THE USER TO 
INSURE THAT A VALID ROUTINE IS SELECTED, STHERUISE THE DRIVE WILL 
. PRODUCE AN ERROR FOR AN INVALID ROUTINE SELECTION. THIS ROUTINE 
IS INTENDED PRIMARILY FOR DEBUG OF A PROBLEM, NOT SYSTEM ACCEPTANCE. 


ONE APPLICATION OF THIS ROUTINE COULD BE TO LOOP ‘FOREVER’ ON A 
Neat peu st tee MICRO Apeyty ROUTINE, POSSIBLY TO DETECT yt 7 renga 
PROBLEMS. THE COMMAND STRING TO PERFORM THIS WOULD BE AS FO 
*STA/TES:60/FLA:<OPTION LIST>*. THE OPTION IN THIS CASE WOULD BE ‘LOT' 
(LOOP ON TEST). TO CHANGE THE ROUTINE, THE USER WOULD AGAIN USE 
THE "START® COMMAND: ‘STA/TES:60/FLA:LOT*. THIS ACTION WOULD 
PERMIT THE USER TO gerd THE gts SELECTED FOR EXECUTION. 
ANY OTHER COMMAND, IE "RES* OR » ETC, WILL USE THE ROUTINE 
PREVIOUSLY SELECTED. BY THE USER, “AND “WILL NOT PERMIT THE USER TO 
CHANGE THE SELECTED ROUTINE. 


TEST 61: NOP FUNCTIONAL TEST 


THIS TEST VERIFIES THE CORRECT oY keke baw OF THE NOP COMMAND. 
INITIALLY, THE TEST VERIFIES THAT RPDS, DRY = 1, THEN ISSUES THE 
COMMAND. "RPDS, DRY IS AGAIN CHECKED TO BE SET WITHIN A FIXED TIME 
LIMIT. IF THE LIMIT EXPIRES AND RPDS, DRY IS NOT SET, A ‘DRIVE 
HUNG’ MESSAGE WILL BE GENERATED. COMPOSITE ERROR AND [RANSFER 
ERROR ARE ALSO CHECKED AND VERIFIED TO NOT BE ASSERTED. 


SEQ 0026 


4 


A 


Pe SEQ 0027 
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-REM @ 
VERSION (CZRJM-A-0) 


1. THIS VERSION IS THE SiARTING FOINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 


-———--—_- -—- — ee ee 
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395 000000 
396 


002046 


002000 


060 
000001 
000200 
044762 
045100 
002320 
002332 
045656 
000000 
000000 
000000 
000000 
002124 
000000 
000000 


S*LAST REVISION 01-JAN-83 


-TITLE CZRJMAO RPO7 FE/HOST ISOLATOR 
~-SBTTL PROGRAM HEADER 


-ENABL AMA,ABS 
. = 2000 


see 
3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM ANC THE SUPERVISOR. 


LSNAME : : sDIAGNOSTIC NAME 
ASCII /C/ 
ASCII /Z/ 
eASCII /R/ 
eASCII /J/ 
eASCII /M/ 
BYTE 0 
BYTE 0 
BYTE 0 
LSREV:: sREVISION LEVEL 
eASCII /A/ 
LSDEPO:: 30 
eASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 
~ WORD TSPTHV 
LSTIML:: sLONGEST TEST TIME 
~WORD 200 
LSHPCP:: sPOINTER TO H.W. QUES. 
~ WORD LSHARD 
LSSPCP:: sPOINTER TO S.W. QUES. 
~WORD LSSOFT 
LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
-WORD LS$HW 
LSSPTP:: sPTR. TO S.W. PTABLE 
~ WORD L$SwW 
LSLADP:: sDIAG. END ADDRESS 
~ WORD LSLAST 
LSSTA:: ;RESERVED FOR APT STATS 
-WORD 0 
L$CO:: 
.~ WORD 0 
LSDTYP:: sD!IAGNOSTIC TYPE 
-WORD 0O 
LSAPT:: ;APT EXPANSION 
. WORD 
LSDTP:: sPTR. TO DISPATCH TABLE 
~ WORD LSDISPATCH 
LSPRIO:: aa DIAGNOSTIC RUN PRIORITY 
LSENVI:: om FLAGS DESCRIBE HOW IT WAS SETUP 


LSEXP1:: EXPANSION WORD 


Z 


/CZRJMAD RPO 
| PROGRAM HEADE 








002046 000000 WORD 
002050 LSMREV:: 
002050 003 -BYTE 
002051 003 BYTE 
002052 LSEF:: 

002052 000000 WORD 
002054 000000 WORD 
002056 LSSPC:: 
002056 000000 WORD 
002060 LSDEVP:: 

2060 006354 WORD 
002062 LSREPP:: 
002062 000000 WORD 

02064 LSEXP4:: 
002064 000000 WORD 

02066 LSEXPS:: 

02066 000000 WORD 
002070 LSAUT:: 
002070 000000 WORD 
002072 L$DUT:: 
00207° 000000 WORD 
002074 LSLUN:: 
002074 000000 WORD 
002076 LSDESP:: 
002076 006362 WORD 
002100 LSLOAD:: 

21 104035 EMT 
002102 LSETP:: 
002102 000000 WORD 
002104 LSICP:: 
002104 020652 WORD 
002106 LSCCP:: 

02106 021350 WORD 
002110 LSACP:: 
002110 021346 - WORD 
002112 LSPRT:: 
002112 020644 . WORD 
002114 LSTEST:: 
002114 000000 WORD 
002116 LSDLY:: 
002116 000000 WORD 
002120 LSHIME:: 
002120 000000 WORD 
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SVC REV AND EDIT # 
CS$REVISION 
SEDIT 
sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
L$DVTYP 
zPTR. TO REPORT CODE 


PTR. TO ADD UNIT CODE 
PTR. TO DROP UNIT CODE 
;LUN FOR EXERCISERS TO FILL 


LSDESC ;POINTER TO DIAG. DESCRIPTION 
:GENERATE SPECIAL AUTOLOAD EMT 

ESLOAD 

0 :POINTER TO ERRTBL 


;PTR. TO INIT CODE 
LSINIT 

PTR. TO CLEAN-UP CODE 
LSCLEAN 

PTR. TO AUTO CODE 
LSAUTO 

PTR. TO PROTECT TABLE 
L$PROT 
0 ; TEST NUMBER 


DELAY COUNT 
0 PTR. TO HIGH MEM 


oo oc Oo Oo O&O 


E 
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DISPATCH 


NOUS wn— 


002262 


000075 
021514 


-SBTTL DISPATCH TABLE 


te ed 
3 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


-WORD 61 
LSDISPATCH:: 
-WORD 11 
WORD T2 
WORD 13 
«WORD 14 
WORD 15 
~WORD 16 


SEQ 0030 


ne. 





- 
aR 
‘bIS 
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PATCK T 
002264 
002266 


0002314 


044614 


» WORD 


SEQ 0031 


ee 


(a a ce a nr a ne + 3 ee 
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} -SBTTL DEFAULT HARDWARE P-TABLE 
3 ptt 
4 3 THE DEFAULT HARDWARE P~TABLE CONTAINS DEFAULT VALUES OF 
5 3 THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
$ ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
8 e 
| 9 002316 000004 «WORD L10000-L$HW/2 
002320 LSHW: : 
002320 DFPTBL:: 
| 10 002320 176700 * WORD 176700 sRPCS1 BASE REGISTER ADDRESS 
11 002322 000254 i 254 :VECTOR ADDRESS 
12 002324 000240 ORD 240 7BR LEVEL 5 DEVICE 
7 002326 000000 “WORD 0 ‘DRIVE NUMBER 
ra 
25 002330 L10000: 


=a_ 


ee en 


' 
| 
| 


1 


WNOUEwr 
S Ssss 
NO BF VONS 


MEOW O”O 
oo 
oo Ss 


Nore 3 ee es 


002344 


000005 


000001 


000001 
000000 


000000 
000000 
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-SBTTL SOFTWARE P-TABLE 


p++ 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS iHAT CAN BE CHANGED uy THE OPERATOR. 


L$SW:: 
SFPTBL:: 
SWTTST: 


ERRDMP: 
SELTRK: 


TRAKAD: 
SELRUN: 


L10001: 


«WORD 


- WORD 


«WORD 
«WORD 


- WORD 
- WORD 


L10001-L$Sw/2 


oo o-7- = 


4 5p TO SELECT MASSBUS INTERFACE TEST; 
DISABLED= 0, ENABLED= 1 

USED TO ENABLE THE RPO7 ERROR LOG DUMP 

ZUSED TO SELECT A TRACK ADDRESS IN THE MICRO- 

DIAGNOSTIC y S 

[USED TO GET THE USER TRACK ADDRESS 

USED TO DETERMINE IF USER SELECTED A MICRO- 

sDIAGNOSTIC TEST 


SEQ 0033 


too OC ee ee ee ee - - _ 


I 3 
/CZRJMAO_RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:CO PAGE 11 SEQ 0034 
GLOBAL EQUATES SECTION 


2 .SBTTL GLOBAL EQUATES SECTION 
| 8 
p++ 
| 53 + THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
2 : ARE USED IN MORE THAN ONE TEST. 
56 
| 57 
t BIT DIFINITIONS 
100000 B1T15== 100000 
| 040000 BIT14== 40000 
020000 B1T13== 20000 
10000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BIT06== 100 
000040 BITOS== 40 
000020 BIT04== 20 
000010 BIT03== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 B1T9== BITO9 
000400 BIT8== BITO8 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BITO4 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BITi== BITO1 
000001 BITO== B1T00 
+ EVENT FLAG DEFINITIONS 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
000040 EF .START== 32. : START COMMAND WAS ISSUED 
000037 EF.RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF.CONTINUE== 30. : CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28 : A POWER-FAIL/POWER-UP OCCURRED 
PRIORITY LEVEL DEFINITIONS 
000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIOS5== 240 
000200 PRI04== 200 
000140 PRi03== 140 
000100 PRIO2== 100 


=, 


-—_—--—- --- -- a = —— eee 
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000040 PRIO1== 40 
| 000000 PRIOO== 0 
SOPERATOR FLAG BITS 
0004 EVL== 4 
000010 LOT== 10 
0020 ADR== 20 
000040 1DU== 4 
000100 1SR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
02000 PRI== 2000 
4000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 





—- 
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-SBTTL RHXX REGISTERS 
sCONTROL AND STATUS REGISTER 1 (RPCS1) 


000100 IE = 100 4 fh ny ENABLE (BIT #6) 

000200 RDY = 200 sREADY (BIT #7) 

000400 Ai6é == _400 HIGH ORDER BUS ADDRESS BIT (BIT #8) 
1000 Ai? = =1000 HIGH ORDER oe tae BIT (BIT #9) 
2000 PSEL =2000 ;PORT SELECT (BIT #10) 

020000 MCPE =20000 MASSBUS PARITY ERROR + #13) 

040000 TRE =40000 TRANSFER ERROR (BIT #14 

100000 sc =100000 ;SPECIAL CONDITION (BIT #15) 


;WORD COUNT REGISTER (RPWC) 
EACH BIT IS CALLED BY BIT NUMBER 


BUS ADDRESS REGISTER (RPBA) 
zEACH BIT IS CALLED BY BIT NUMBER 


sCONTROL AND STATUS REGISTER 2 (RPCS2) 


FWD 0 ODNAUEWN $0 ODNAUESWN—OOONAMSWN 


yee? epee ph ge a pte Nadie 4 oad al end and and cad en ec ec od 


000001 US1 = 1 UNIT SELECT (BIT #0) 
000002 US2 = 2 UNIT SELECT (BIT #1) 
004 US4 = 4 sUNIT SELECT (BIT #2) 
000010 BAI = 10 3BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
000020 PAT = 20 sMASSBUS PARITY INHIBIT (BIT #4) 
0040 CLR = 40 sCLEAR (BIT #5) 
000100 IR = 100 z INPUT READY (BIT #6) 
000200 OR = 200 OUTPUT READY (BIT #7) 
000400 MDPE = 400 sMASSBUS PARITY ERROR (BIT #8) 
001000 MXF = 1000 :MISSED TRANSFER ERROR (BIT #9) 
35 002000 PGE = 2000 ;PROGRAM ERROR (BIT #10) 
36 004000 NEM = 4000 iNON EXISTENT MEMORY (BIT #11) 
37 010000 NED = 10000 ON EXISTENT DRIVE (BIT #12) 
38 020000 UPE = 20000 SUNTBUS PARITY ERROR 
39 040000 WCE = 40000 [WRITE CHECK ERROR (BIT #14) 
7 100000 DLT = 100000 DATA LATE (BIT #15) 
42 
43 DATA BUFFER REGISTER (RPDB) 
‘3 sEACH BIT IS DEFINED BY BIT NUMBER 
r4 -SBTTL RPO7 REGISTERS 
rs CONTROL AND STATUS 1 (#00) 
50 000001 GO = 1 360 BIT (BIT #0) 
51 000002 Fl = 2 sFUNCTION CODE BIT #1 
52 000004 F2 = 4 sFUNCTION CODE BIT #2 
53 000010 FZ = 10 sFUNCTION CODE BIT #3 
54 000020 F4 = 20 sFUNCTION CODE BIT #4 
55 000040 F5 = 40 sFUNCTION CODE BIT #5 
28 004000 DVA = 4000 DEVICE AVAILABLE (BIT #11) 


a_ i 


«> 
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/RPO7 REGISTERS 
ae 
| 25 sDRIVE STATUS REGISTER (RPDS <#01>) 
61 000001 OM = 1 sOFFSET MODE or w 
62 000002 EWN = 2 EARLY WARNING (BIT #1) 
63 000004 ILEV= 4 ; INTERLEAVING yt ae Os (BIT #2) 
000100 vv = 100 ;VOLUME VALID (BIT #6) 
65 000200 DRY = 200 DATA READY (BI ) 
66 000400 DPR = 400 :DRIVE ny | (BIT #8) 
67 001000 PGM = 1000 ;PROGRAMABLE (BIT #9) 
68 002000 L8T = 2000 LAST BLOCK Mar ae 1 (BIT #10) 
69 004000 WRL = 4000 ;WRITE LOCKED (BIT #11) 
70 010000 MOL = 10000 ;MEDIUM ON LINE (BIT #12) 
71 020000 ~ PIP = 20000 ;POSITIONER IN “ee (BIT #13) 
72 040000 ERR = 40000 COMPOSITE ERROR (BIT #14) 
ft, 00000 ATA = 100000 ATTENTION ACTIVE alt y5) 
75 
A} sERROR REGISTER #1 (RPER1 <#02>) 
78 000001 ILF = 1 ILLEGAL FUNCTION (BIT #0) 
79 000002 ILR = 2 ZILLEGAL REGISTER (BIT #1) 
80 00004 RMR = 4 :REGISTER weal bat REFUSED (BIT #2) 
81 000010 PAR = 10 :PAR ITY ERROR (BIT #3) 
82 000020 FER = 20 FORMAT ERROR (BIT #4) 
83 000040 WCF = 40 SWRITE CLOCK FAIL (BIT #5) 
84 000100 ECH = 100 ECC HARD ERROR (BIT #6) 
85 000200 HCE = 200 sHEADER COMPARE ERROR (BIT #7) 
86 400 HCRC= 400 ;HEADER CRC ERROR (BIT #8) 
87 001000 AOE = 1000 ADDRESS OVERFLOW ERROR (BIT #9) 
88 002020 IAE = 2000 : INVALID ADDRESS ERROR ei #10) 
89 004069 WLE = 4000 /WRITE LOCK ERROR (BIT #11) 
90 010001’ DTE = 10000 :DRIVE TIMING ERROR (BIT #1 
91 020000 OPI = 20000 OPERATION INC i (BIT #13) 
92 04000C UNS = sDRIVE UNSAFE 
¢ 100000 DCK = 100000 DATA CHECK ERROR Bit #15) 
95 
38 sDIAGNOSTIC MAINTAINABLILTY REGISTER (RPMR1 <#03>) 
oS 100000 DMD = 100000 ;DIAGNOSTIC MODE (BIT #15) 
100 
4 sATTENTION SUMMARY PSEUDO REGISTER (RPAS <#04>) 
103 000001 ATO = 1 sDEVICE O (BIT #0) 
104 000002 AT1 = 2 ;DEVICE 1 (BIT #1) 
105 000004 AT2 = 4 sDEVICE 2 (BIT #2) 
106 000010 ATS = 10 sDEVICE 3 (BIT #3) 
107 000020 AT4 = 20 sDEVICE 4 (BIT #4) 
108 000040 ATS = 40 DEVICE 5 (BIT #5) 
109 000100 AT6 = 100 sDEVICE 6 (BIT #6) 
4 000200 AT7 = 200 sDEVICE 7 (BIT #7) 
11¢ 
113 DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA <#05>) 
114 EACH BIT IS CALLED SY BIT NUMBER 


eae 


ZR RPO7 
RPO? 


GISTE 


mo 
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000001 


100000 


000100 


010000 


000200 


100000 


000002 
000004 
000010 


DRIVE TYPE REGISTER (RPDT <#06>) 


DRTO = 1 sDRIVE TYPE NUMBER (BIT #0) 

DRT1 = 2 sDRIVE TYPE NUMBER (BIT #1) 

DRI2 = 4 sDRIVE TYPE NUMBER (BIT #2) 

DRTS = 10 sDRIVE TYPE NUMBER (BIT #3) 

DRT4 = 20 sDRIVE TYPE NUMBER (BIT #4) 

DRTS = 4 sDRIVE TYPE NUMBER (BIT #5) 

DRT6 = 100 sDRIVE TYPE NUMBER (BIT #6) 

DRT? = 200 ; E TYPE NUMBER (BIT #7) 

DRT8 = 400 sDRIVE TYPE NUMBER (BIT #8) 

DRQ = 4000 DRIVE REQUEST REQUIRED (BIT 411) 
MOH = 20000 sMOVING HEAD TYPE DRIVE (BIT #13) 
TAP = 400 sTAPE DRIVE (BIT #14) 

NBA = 100000 sNOT BLOCK ADDRESSED (BIT #15) 


;LOOK AHEAD REGISTER (RPLA <#07>) 


SC1 = 100 SECTOR COUNT FIELD 1 (BIT 46) 
sc2 = 200 sSECTOR COUNT FIELD 2 (BIT #7) 
S¢4 = 400 SECTOR COUNT FIELD 4 (BIT #8) 
sc8 = 1000 sSECTOR COUNT FIELD 8 (BIT #9) 
$C16 = 2000 SECTOR COUNT FIELD 16 (BIT #10) 
SC32 = SECTOR COUNT FIELD 32 (BIT #11) 
$C64 = 10000 sSECTOR COUNT FIELD 64 (BIT #12) 


sRPO7 SERIAL NUMBER REGISTER (RPSN <#10>) 
sEACH BIT IS CALLED BY BIT NUMBER 


zRPO7 OFFSET REGISTER (RPOF <#11>) 
A 200 sOFFSET DIRECTION (BIT #7) 


C1 = 2000 HEADER COMPARE CODE INHIBIT (BIT #10) 
ECI = 4000 sERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT = 10000 316 BIT FORMAT (BIT #12) 

MTD = 4000 sMOVE TRACK DESCRIPTOR (BIT #14) 
CMOD = 100000 COMMAND MODIFIER (BIT #15) 
sRPO7 DESIRED CYLINDER ADDRESS (RPDC <#12>) 

:EACH BIT IS CALLED BY BIT NUMBER 


3RPO7 CURRENT CYLINDER ADDRESS (RPCC <#13>) 
sEACH BIT IS CALLED BY BIT NUMBER 


3RPO7 ERROR REGISTER 3 (RPER3 <#15>) 


SCF =2 sSYNC CLOCK FAILURE (BIT #1) 
SBE = 4 SYNC BYTE ERROR (BIT #2) 
DPE = 10 zDATA PARITY ERROR (BIT #3) 


3 
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|RPO? REGISTERS 
| 47 0020 SoF = 20 SSERDES DATA FAILURE (BIT #4) 
178 000040 Dcusi‘(<i‘éact 2DC UNSAFE (BIT #5) 
17% 000100 Ixy = 100 ZINDEX UNSAFE (BIT #6) 
178 000200 Dbve = 200 tDEVICE CHECK 
| 1% 000400 PHE = 400 +8080 PROCESSOR HANDSHAKE FAILURE (BIT #6) 
177 001900 LCE = 1000 *LOSS OF CYLINDE 
178 002000 ie ls ‘LOSS OF BIT CLOCK 
179 0 DSE «= 90000 IDEFECT SKIP ERROR (BIT #13) 
180 040000 SKI = 40000 sSEEK INCOMPLETE (BIT #14) 
181 00 BSE = 100000 ‘BAD SECTOR ERROR (BIT #15) 
188 
184 :PPO7 ERROR REGISTER #2 (RPER2 <#14>) 
185 ;BITS 0 THROUGH 7 = READ ONLY BITS 
186 0400 WRU = 400 * WRITE READY UNSAFE (BIT #8) 
187 001000 woR = 1000 ‘WRITE OVERRUN (BIT #9) 
188 002000 RWU1 = 2000 sREAD/WRITE UNSAFE #1 (BIT #10) 
189 004000 RWU2 = 4 sREAD/WRITE UNSAFE #2 (BIT #11) 
190 010000 RUUS = 10000 SREAD/WALTE UNSAFE #3 (BIT #12) 
191 020000 cPu = 20000 :CPU ot} (BIT #13) 
192 040000 CPE = 40000 nOM PARITY canoe (BIT #14) 
195 100000 PGE = 100000 ¢PROGRAMMING ERRO 
198 
196 sECC POSITION REGISTER (RPEC1 <#16>) 
4 44 * EACH BIT IS DEFINED BY BIT NUMBER 
199 
200 sECC PATTERN REGISTER (RPEC2 <#17>) 
$0) sEACH BIT IS DEFINED BY BIT NUMBER 
sor -S8STTL RPO7 COMMAND DEFINITIONS 
508 000005 SEEK = 5 SEEK 
506 00000? RECAL = 7? :RECALIBRATE 
50? 000011 DRCLR = (11 {DRIVE CLEAR 
50 000013 RELEASE = 13 ;DRIVE RELEASE 
509 000018 Se <NO OPERA 
21 000021 RIP sz 21 ;READ IN PRESET (NO OPERATION) 
$71 000031 SEARCH = 31 ARCH 
512 000035 : = {DIAGNOSTIC NODE, 
513 000081 weKD = 8 EWRITE CHECK DAT 
514 000083 WCKHD «= 83 WRITE CHECK READER AND DATE 
518 000061 WRDTA = 61 ‘WRITE DAT 
216 000063 FORTRK = 63 ;FORMAT NE ABER AND SD FOR ENTIRE TRACK 
217 000065 = 65 “WRITE DESCRIPTOR 
218 000071 RDDTA z 71 SREA D DAT 
219 000073 RDHDTA = 73 *READ DP ADER AND DATA 
$s 000075 RTD s 75 *READ TRACK DESCRIPTOR 
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CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 3 SEQ 0040 
GLOBAL DATA SECTION 


~SBTTL GLOBAL DATA SECTION 


: "THE GLOBAL DATA TE CONTAINS DATA THAT ARE USED 
a IN MORE THAN ONE TEST. 


PATT1:: 000001 


PATT8:: 030221 sPATTERN 8 (WORST CASE) 
PATT9:: 000002 
TABADD:: .WORD 0 ;BUFFER POINTER 
ENDTRK:: .WORD 31. aia TRACK (RPO7+) 
LASTRK:: .WORD 0 PROGRAM yoda ast TRACK 
ENDCYL:: .WORD 629. :LAST CYLINDER, (RFO7+) 
LASCYL:: .WORD 0 ROGRAM CONTROLLED LAST CYLINDER 
BITPOS:: .WORD 0 USED TO MASK THE CORRECT RPAS BIT POSITION 
ITCOUN:: .WORD 10. z ITERATION COUNTER 
ERRWD1::.WORD 0 ERROR MESSAGE at 4 
ERRWD2::.W 0 zERROR “etsy. 
BYTCNT::. 0 USED _TO INDICA: t FOF *GorDs TRANSFERRED 
NEGWRD:: .WORD 0 : TED WO T FOR 
DESTRK::.WORD 0 sUSED TO SELECT A DESIRED T 
DESCYL: 0 sUSED TO SELECT A DESIRED CYLINDER 
FUNCTN::.WORD 0 USED TO gt ta A SELECTED FUNCTON 
ROUTDO::.WORD 0 USE THIS PARAMETER (‘USER SELECTED’ INDICATOR) 
SELNUM::.WORD 0 SUSED TO STORE THE USER MICRODIAGNOSTIC INPUT 
CLKSTA:: .WORD 0 sCLOCK STATUS (NO CLOCK= 0,KW11-P= 1 OR KW11-L= -1 
FASTAT:: .WORD 0 sFAILED STATUS (USED INTERNALLY BY PROGRAM) 
CSTORE:: .WORD 0 ssANe CARRY FROM PREVIOUS XFER 
PATCNT:: .WO 0 # OF PATTERNS TO USE 
TEMP:: .WORD 0 : TEMPORARY STORAGE FOR SCOPE LOOPS 
SNK:: .WORD 0 ADDRESS OF REGISTER UNDER TEST 
SRC:: .WORD 0 ADDRESS OF TESTING DATA PATTERN 
SRCTMP::.WORD 0 DATA PATTERN TEMPORARY STORAGE 
MASK:: .WORD 0 : AINS BITS 
MSK::  .WOR 0 CONTAINS BIT UNDER 
RCVED:: .WO 0 sCONTAINS RECEIVE D DA 
EXPT _D::. 0 CONTAINS EXPECTED GOOD DAT 
TESTRG::.WORD 0 :CONTAINS ADDRESS OF REGISTER UNDER TEST 
ILOCK:: .WORD 0 :USED TO INDICATE RPDB IR/OR_ POLLING 
INTFLG::.WORD 0 sUSED TO INDICATE THAT AN bald age HAS OCCURRED 
ABLE::.WORD 0 sUSED TO CHECK FOR MANUAL INTERVENTION 
ERSTAT::.WORD 0 TREPORTS PASS/FAIL STATUS TO CALLING MODULE 
FATOF:: .WORD 0 FUNCTION AT TIME OF FAILURE 
NIT:: .WORD 0 ;USED TO SELECT A UNIT FOR TEST 
RPADR:: .WORD 176700 Dalley ie RPCS1 BASE ADDRESS 
RPVEC:: .WORD  254,5*32. SCONTAINS VECTOR ADDRESS & BR LEVEL 
HEXT:: .WORD 50 :CONTAINS RH70 OFFSET TO RPBAE 


—_—_---- ——_ _ + 
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GLOBAL DATA SECTION 
4 002504 000000 RHTYPE::.WORD 0 CONTAINS RHXX TYPE; RH11= 0, RH70= 1 
9 002506 000000 DRVNO:: .WORD 0 DRIVE NUMBE 
é 002510 000000 DRVSN:: .WORD 0 sSTORAGE FOR EACH S/N DIGIT 
62 002512 176700 RPCS1:: .WORD 176700 :BASE ADDRESS USED FOR THE DRIVE 
63 002514 176702 RPWC:: . 176702 ;WORD COUNT REGISTER 
64 002516 176704 RPBA:: .W 176704 BYTE ADDRESS REGISTER 
65 002520 176706 RPDA:: .WORD 176706 ZDESIRED SECTOR/TRACK ADDRESS 
66 002522 176710 RPCS2:: .WORD 176710 :RPO7 STATUS REGISTER 
67 002524 176712 PDS:: .WO 176712 ;RPO7 DRIV 
68 002526 176714 RPER1:: .WO 176714 3RPO7 ERROR REGISTER #1 
69 002530 176716 PAS:: .WO 176716 ;RPO7 ATTENTION SUMMARY PSEUDO REGISTER 
70 002532 176720 RPLA:: .WORD 176720 :RPO7 LOOK ap | REGISTER 
71 002534 176722 RPDB:: .WORD 176722 :RPO7 DATA BUFFER 
72 002536 176724 RPMR1:: .WORD 176724 :RPO7 MAINTENANCE REGISTER #1 
73 002540 176726 RPDT:: .WORD 176726 SDRIVE TYPE REGISTER 
74 002542 176730 RPSN:: .WO 176730 sRPO7 SERIAL 
75 002544 176732 RPOF:: .WOR 176732 sRPO7 OFFSET REGISTER 
re 002546 176734 RPDC:: .WORD 176734 3RPO7 DESIRED CYLINDER 
7 002550 176736 RPCC:: .WORD 1767 sRPO7 CURRENT CYLINDER 
a3 002552 176740 RPER2:: .WORD 176740 3RPO7 ERROR REGISTER #2 
79 002554 176742 RPER3:: .WO 1767 sRPO7 ERROR REGISTER #3 
80 002556 176744 RPEC1:: .W 176744 sRPO7 ERROR POSIT 
81 0025 176746 RPEC2:: 176746 3RPO7 ERROR PATTERN 
82 002562 176750 RPBAE:: .WORD 176750 ;RH70 REGISTER 
er 0025 176752 RPCS3:: .WORD 176752 ;RH70 REGISTER 
85 sATTENTION ots TABLE (ATABIT=8 BYTES) 
86 HIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
44 ATTENTION BIT 
89 002566 001 ATABIT::.BYTE 1 sDRIVE 0 
90 002567 002 -BYTE 2 sORIVE 1 
91 06257 004 -BYTE 4 sDRIVE 2 
92 002571 010 -BYTE 10 sDRIVE 3 
93 002572 020 -BYTE 20 sDRIVE 4 
94 002573 040 -BYTE 40 sDRIVE 5 
95 002574 100 -BYTE 100 sDRIVE 6 
38 002575 200 -BYTE 200 sDRIVE 7 
os ; STORAGE FOR DEVICE REGISTERS 
1” 002576 REG:: .BLKW 22. sSAVE REGISTERS HERE 
102 002652 PSTACK: ? -BLKW 10. SOFTWARE PSEUDO STACK 
103 002676 MCUTXT::.BLKW 13. sASCII_ TEXT POINTER FILE 
ee 0027 IOBUFF::.BLKW <50.*6> ;BUFFER USED FOR DATA TRANSFERS 
4 : MODULE CALLOUT DISPATCH TABLE 
108 004060 011161 MCUTAB: :J1 (BITO ERRWD1) 
109 004062 011166 J2 $A02 MODULE (BIT1 ERRWD1) 
110 004064 011173 J3 3A03 MODULE (BIT2 ERRWD1) 
111 004066 011200 J4 3A04 MODULE (BITS ERRWD1) 
112 004070 011205 J5 sA05 MODULE (BIT4 ERRWD1) 
113 004072 011212 J6 3A06 MODULE (BITS ERRWD1) 
114 004074 011217 J? 3A07 MODULE (BiT6 ERRWD1) 
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TSTO3:: 2 


TST04:: 


TSTOS:: 2 


TSTO8:: 3 


TST11:: 2 


SEQ 0042 
3A08 MODULE (BIT7 ERRWD1) 
;A09 MODULE (BIT 8 ERRWD1) 
3A10 MODULE (BIT 9 ERRWD1) 
3A11 MODULE (BIT 10 ERRWD1) 
sAl2 MODULE <#IT 11 ERRWD1) 
3A13 MODULE (BIT 12 ERRWD1) 
3A14 MODULE (BIT 13 ERRWD1) 
3A15 MODULE (BIT 14 ERRWD1) 
3A16 MODULE oie 15 oped 
3A17 MODULE (BIT 0 ERRWD2) 
RH CONTROLLER (BIT 1 ERRUD2) 
:CABLE (BIT 2 ERRWD2) 


sMASSBUS DISABLE SWITCH (BIT ; Bs 
sDUAL DRIVE Werte ER hon 4 ERRWD2) 


7H ERRWD2) 
‘PHASE DETE CALLOUT (BIT 8 ERRWD2) 


;BLOWER Y, (BIT 10 E ~~ 

sPOWER TRANSFORMER tt ERRWD2) 
sMOTOR / BRAKE ASSY'S (BIT 12 MERRUD2) 
sRELAY K1 (BIT 13 ERRWD2) 

ZOPERATOR'S PANEL (BIT 14 ERRWD2) 
DRIVE BELT (BIT 15 ERRWD2) 


:# OF PATTERNS USED IN THIS TEST 
REGISTER TO TEST 

;BIT MASK t BITS TO TEST = 1 
;PATTERN TO USE 

;PATTERN TO USE 


34 OF te USED IN THIS TEST 
:REGISTER TO T 

:BIT MASK, BITS TO TEST = 1 
PATTERN TO USE 

;PATTERN TU USE 


z# OF PATTERNS USED IN THIS TEST 
REGISTER TO TEST 

:BIT MASK, BITS TO TEST = 1 
;PATTERN TO USE 

:PATTERN TO USE 


3# OF PATTERNS IN “— IN THIS TEST 
REGISTER UNDER TEST 

:BIT MASK, BITS TO TEST = 

; “fo USE 


“PATTERN TO USE 


74 OF i TO USE IN THIS TEST 
REGISTER TO TEST 

7BIT MASK, BITS TO TEST = 1 
;PATTERN TO USE 

PATTERN TO USE 


-—---- + —— 
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172 004244 
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coy 004326 


202 004330 
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210 004350 
211 004352 


000002 


002346 
000003 


002350 
002512 


002546 


000010 
002536 


002364 
002512 


002564 


TST12:: 


2 


TST28:: 3 


TST33:: 


TST34:: 8 


TST49:: 


SEQ 0043 


3# OF PATTERNS TO USE IN THIS TEST 
REGISTER TO TEST 
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7# OF PATTERNS TO USE 
oeee aie TO TEST 


PATTERN TO USE 
FILE OF REGISTERS 
:TO BE USED IN 


: TEST 
zLAST REGISTER USED = THIS TEST 


34 OF PATTERNS TO USE 
REGISTER TO TEST 
BITS TO TEST 

; USE 


USE THIS PATTERN 
USE THIS PATTERN 
USE THIS PATTERN 
USE THIS PATTERN 


FILE OF WRITABLE REGISTERS TO TEST 
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MODULE CALLOUT TABLE 


SEQ 0044 


} -SBTTL MODULE CALLOUT TABLE 
3 sLAST ERROR CODE GUIDE REVISION: 3/15/81 (REV A) 
¢ LAST CHANGE TO THIS SOURCE CODE: 4/22/81 
6 004354 000000 EC.00: 0 sNOT USED (00 ERROR CODE) 
7 004356 000000 0 zNOT USED 
8 004360 000000 0 sNOT USED (01 ERROR CODE) 
9 004362 000000 0 sNOT USED 
10 004364 000000 0 sNOT USED (02 ERROR CODE) 
11 004366 000000 0 sNOT USED 
12 004370 000000 0 sNOT USED (03 ERROR CODE) 
13 004372 000000 0 sNOT USED 
14 004374 000000 0 sNOT USED (04 ERROR CODE) 
15 004376 000000 0 sNOT USED 
16 004400 0000 0 zNOT USED (05 ERROR CODE) 
17 004402 000000 0 sNOT USED 
18 004404 000 0 sNOT USED (06 ERROR CODE) 
19 004406 000000 0 sNOT USED 
20 004410 000000 0 sNOT USED (07 ERROR CODE) 
21 004412 000000 0 zNOT USED 
22 004414 0000 0 sNOT USED (08 ERROR CODE) 
23 004416 000000 0 sNOT USED 
24 004420 000000 0 NOT USED (09 ERROR CODE) 
25 004422 000000 0 :NOT USED 
26 004424 000000 0 sNOT USED (OA ERROR CODE) 
27 004426 000000 0 :NOT USED 
28 004430 000000 0 ZNOT USED (0B ERROR CODE) 
29 004432 000000 0 sNOT USED 
30 004434 000000 0 sNOT USED (OC ERROR CODE) 
31 004436 000000 0 sNOT USED 
32 004440 000000 0 sNOT USED (OD ERROR CODE) 
33 004442 000000 0 sNOT USED 
34 004444 000000 0 sNOT USED (OE ERROR CODE) 
35 004446 000000 0 sNOT USED 
36 004450 000000 0 sNOT USED (OF ERROR CODE) 
37 004452 000000 0 sNOT USED 
38 004454 000100 BIT6 sA7 MODULE (10 ERROR CODE) 
39 004456 000000 0 zNO CA T 
40 004460 000100 BIT6 3A7 MODULE (11 ERROR CODE) 
41 004462 000000 0 :NO CALLOU 
42 004464 000100 BIT6 3A? MODULE (12 ERROR CODE) 
43 004466 000000 0 
44 004470 000100 BIT6 iA? ae (13 ERROR CODE) 
45 004472 000000 0 O CALLOUT 
46 004474 000100 BIT6 EA? MODULE (14 ERROR CODE) 
47 004476 000000 0 ;NO CALLOUT 
48 004500 000100 BIT6 3A7 MODULE (15 ERROR CODE) 
49 004502 000000 0 :NO CALLOUT 
50 004504 000100 BIT6 3A7 MODULE (16 ERROR CODE) 
51 004506 000000 0 sNOT U 
52 004510 000100 BIT6 zA7 MODULE (17 ERROR CODE) 
53 004512 000000 0 ; A T 
54 004514 000100 BIT6 zA7 MODULE (18 ERROR CODE) 
55 004516 000000 0 NO CALLOUT 
56 004520 000100 BIT6 3A7 at (19 ERROR CODE) 
57 004522 000000 0 NO CALLOUT 


ee 
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_— CALLOUT TABLE 
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000100 


BIT6 
BIT3!B1T4!B1TS 
3!61T4!BI1TS 
'BIT4!B1T5S 
'BIT4!BITS 
TO!BITI!BIT2 
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ee be OO) es See ba ee to ee 
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IT1!BIT4!BIT6!BITS 
IT3!BITS 
IT3!BIT4 
IT3!B1T5 
BIT3!BIT4 
BIT3!B1T5 
BIT3!BITS 
BIT3!BIT4 
BIT3!BIT4 
BIT8!BIT9 
BIT9 
BIT9 
BIT8!BIT9 
BIT9 
BIT9 
BIT9 
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Oo 


SEQ 0045 


zA7 MODULE (1A ERROR CODE) 
ne CALLOUT 


oo -A6 MODULES (18 ERROR CODE) 
iG AS, A6 MODULES (1C ERROR CODE) 
iA. AS, A6 MODULES (1D ERROR CODE) 


HDA 
ay AS, A6 MODULES (1E ERROR CODE) 


“A30 yA  jrtaee (1F ERROR CODE) 
5 MODULE. (20 ERROR CODE) 

:Ng CALLOUT 

A? MODULE (21 ERROR CODE) 

NO CALLOUT 

3A? MODULE (22 ERROR CODE) 


U 
ZA? ate {23 ERROR CODE) 
3A? RODULE (24 ERROR CODE) 


;NO CALLOU 
A7 MODULE (25 ERROR CODE) 
:NO CALLOUT 
;A7 MODULE (26 ERROR CODE) 
NO CALLOUT 
ihe, mf A7, A9 MODULES (28 ERROR CODE) 


ALLOU 
3A4, A6 MODULE (28 ERROR CODE) 
NO CALLOUT 
304, - MODULE (29 ERROR CODE) 


U 
TAG, 06 MODULES (2A ERROR CODE) 
NO CALLOUT 


3A4, AS MODULE (2B ERROR CODE) 


3N LLOU 

304, ~” 1 ee (2C ERROR CODE) 
TAG, A6 MODULE (2D ERROR CODE) 
NO’ CALLOUT 

iA4 AS Ay (2E ERROR CODE) 
3A4, AS MODULE (2F ERROR CODE) 
NO CALLOUT 

3A9, A10 MODULES (30 ERROR CODE) 


NO. CALLOU 
sare MODULE (31 ERROR CODE) 


C 
A10 MODULE (32 ERROR CODE) 
NO CALLOUT 
:A9.A10 MO MODULE (33 ERROR CODE) 
3A10 RODULE (34 ERROR CODE) 


=A10 ERROR CODE (35 ERROR CODE) 
:NO CALLOU 
3A10 MODULE (36 ERROR CODE) 


SS 


CZRIMAO P07 FE/HOST ISOLATOR MACRO V04.00 1=JAN-83 13:37:00 PAGE feo" SEQ 0046 
MOLuc CALLOUT TABLE 
| 175 004706 000000 0 sNO CALLOUT 
| 1°6 004710 001000 BIT9 tA10 MODULE (37 ERROR CODE) 
| 117 004712 000000 0 ‘NO CALLOU 
718 004714 001000 BIT9 tA10 MODULE (38 ERROR CODE) 
| 119 004716 000000 0 ‘NO CALLOUT 
120 004720 001000 BITS tA10 MODULE (39 ERROR CODE) 
121 004722 000000 0 ‘NO CALLO 
122 004724 001000 BIT9 3A10 MODULE (3A ERROR CODE) 
123 004726 000 0 NOT USED 
| 124 004730 001000 BIT9 3A10 MODULE (38 ERROR CODE) 
125 004732 000000 0 USED 
126 004734 000100 BIT6 tA7 MODULE (3C ERROR CODE) 
127 004736 000000 0 ‘NOT U 
128 004740 000100 BIT6 A? MODULE (3D ERROR CODE) 
129 004742 000000 0 [NOT USED 
130 004744 00010 BIT6 tA7 MODULE (3E ERROR CODE) 
131 004746 000000 0 ; 
132 004750 001102 BIT1!BIT6!BIT9 tA2, A7, A10 MODULES (3F ERROR CODE) 
133 004752 000000 0 :NOT US 
134 004754 000000 0 :NO CALLOUT (40 ERROR CODE) 
135 004756 000000 0 ALLOUT 
136 004760 000102 BIT1!B1T6 ND, Ap MODULES (41 ERROR CODE) 
137 004762 002000 BIT10 BLOWER Assy 
138 004764 000343 BITO!BIT1!BITS! Al, A2 A& MODULES (42 ERROR CODE) 
139 004766 135200 BIT7'BIT9!BIT1 fisteitis; ban " bitte DETECTOR, TRANSFORMER, MOTOR, K1, BELT 
140 004770 000040 BITS ;A6' MODU E (4% ERROR CODE) 
141 004772 000200 BIT? ; PALL OUT 
142 004774 000070 BIT3!BIT4!BITS 3A4, AS, AO MODULES (44 ERROR CODE) 
143 004776 000200 BIT? ‘HDA CALLOUT 
144 005000 000070 BIT3!BIT4!BITS *A4, AS, A6 (45 ERROR CODE) 
145 005002 000200 BIT? [HDA CALLOUT 
146 005004 000070 BIT3!BIT4!BITS tA4, AS, AG MODULES (46 ERROR CODE) 
147 005006 000200 BIT7 SHDA 
148 005010 000070 BIT3!BIT4!BITS tA4, AS, AG MODULES (47 ERROR CODE) 
149 005012 000200 BIT? ZHDA 
150 005014 00003 BIT3!BIT4 A4, AS MODULES (48 ERROR CODE) 
151 005016 00000 0 =NC CALLOUT 
152 005020 000030 BIT3'BITS a. AS MODULES (49 ERnOR CODE) 
153 005022 00000 0 iN LLOU 
154 005024 000070 BIT3!BIT4!BITS 4, AS, A6 MODULES (4A CRROR CODE) 
155 005026 000200 BIT? HDA 
156 005030 000032 BIT1!BIT3!@114 tA2, A4, AS MODULES (4B ERROR CODE) 
157 005032 000000 0 =NO CALLOUT 
158 005034 000020 BIT4 iAS MODULE (4C ERROR CODE) 
159 005036 000000 0 0 CALLOU 
160 005040 000020 BIT4 s MODULE (4D ERROR CODE) 
161 005042 000000 0 :NO CALLOUT 
162 005044 000053 BITO'BIT1!BIT3!BIT5 , Ad, A&, AG MODULES (4E ERROR CODE) 
163 005046 000000 0 hn’ CALLOU 
164 005050 000012 BIT1!BIT3 tA, AG MODULES (4F ERROR CODE) 
165 005052 (00000 0 ‘NOT U 
166 005054 000070 BIT3!BIT4!BITS 7A4, A5, AG MODULES (50 ERROR CODE) 
167 005056 00020 BIT? ‘HDA 
168 005060 000070 BIT3'BIT4!BITS tA4, AS, AG MODULES (51 ERROR CODE) 
169 005062 000200 BIT? $H 
170 005064 000070 BIT3!BIT4!BITS 7A4, AS, AG MODULES (52 ERROR CODE) 
171 005066 000200 BIT7 SHDA 


ano 


I 
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MODULE CALLOUT TABLE 
172 005070 000050 gIT3!B1T5 :A4,_A6 MODULES (53 ERROR CODE) 
173 005072 000000 NO" CALLOU 
17% 005074 00012 gIT1!81T3 ZA2, A4 MODULES (54 ERROR CODE) 
175 005076 000000 [NOT USE 
| 178 005100 000070 BIT3!61T4!B1T5 ZA6, AS, AG MODULES (55 ERROR CODE) 
| 17? 005102 000200 BIT HDA 
| 178 005104 900012 BIT1!81T3 TA2, Ag MODULES (56 ERROR CODE) 
| 179 005106 900000 0 NOt US 
| 180 005110 000030 BIT3!B1T4 ZA%,A3 MODULES (57 ERROR CODE) 
| 181 005112 000000 0 NO" CALLOU 
182 005114 000030 BIT3!B1T4 7A4, AS MODULES (58 ERROR CODE) 
| 183 008116 000000 0 NO" CALLOUT 
| 18% 005120 00003 BIT3!B1T4 ZA4, AS MODULES (59 ERROR CODE) 
| 185 005122 00 0 NO CALLOUT 
| 18% 005124 000030 BIT3!B1T4 ZA4, AS MODULES (5A ERROR CODE) 
| 187 005126 00000 0 NO" CALLOUT 
188 005130 000030 BIT3!B1T4 3A4, AS MODULES (58 ERROR CODE) 
189 005132 00000 0 NO" CALLOUT 
| 190 005134 000030 BIT3!B1T4 7A4, AS MODULES (SC ERROR CODE) 
191 005136 00000 0 NO" CALLOUT 
| 192 00140 000030 BIT3!BIT4 ZA4, AS MODULES (5D ERROR CODE) 
193 005142 000000 0 NO" CALLOUT 
194 005144 000030 BIT3!B1T4 ZA4, AS MODULES (SE ERROR CODE) 
195 005146 000000 0 NO" CALLOUT 
196 005150 000030 BIT3!BIT4 zA4, AS MODULES (SF ERROR CODE) 
197 005152 0000 0 NO" CALLOUT 
198 005154 000330 BIT3!BIT4!BIT6!BIT7 AG, AS, AZ, AB MODULES (60 ERROR CODE) 
199 005156 04000: BIT14 OPERATOR'S PANEL 
200 005160 000070 BIT3!B1T4!B1T5 ZAG, AS, AG MODULES (61 ERROR CODE) 
201 005162 00020 BIT? i 
202 005164 000050 BITS!BITS ZA4, A6 MODULES (62 ERROR CODE) 
203 005166 000000 0 NO" CALLOUT 
304 005170 000020 BIT4 :A5 MODULE (63 ERROR CODE) 
305 005172 00000 0 
206 005174 004570 BIT 3!B1T4!B1T5!8116!B1T8{BIT11; sA4, AS, A6, A7, AY, Al2 MODULES (64 ERROR CODE) 
207 005176 0002 BIT? :HDA 
208 005200 004550 BITS!BITS!BIT6!BITB!BITI1;A4, AG, A7, A9, A12 MODULES (65 ERROR CODE) 
209 005202 0000 0 zi EALLOu 
210 005204 000070 BIT3!B1T4!B1T5 AS, AG MODULES (66 ERROR CODE) 
311 005206 0000 0 ENO” CALLOUT 
512 005210 000040 BITS ZA6 MODULES (67 ERROR CODE) 
513 005212 000000 0 :NO CALLOUT 
214 005214 000050 BIT3!B1T5 iad. Ab MODULES (6B ERROR CODE) 
315 005216 000000 0 LOU 
216 005220 000200 BIT? AB MODULE (69 ERROR CODE) 
217 005222 000000 0 
318 005224 004200 BIT7!B1T11 ZA, A12 MODULES (6A ERROR CODE) 
219 005226 000004 BIT2 SMASSBUS CABLE 
$20 005280 000000 0 NOT USED (6B ERROR CODE) 
221 005232 000000 0 SNOT U 
222 005234 000160 BIT4!B1T5!B1T6 =A5, AG, AT MODULES (6C ERROR CODE) 
223 005236 00000 0 NO" CALCOUT 
254 005240 000160 BIT4!B1T5!B1T6 AS, AG, A? MODULE (6D ERROR CODE) 
225 005242 00000 0 NO’ CALLOU 
226 005244 000060 BIT4!B1T5 ZS. AG MODULE (6E ERROR CODED 
227 005246 000006 0 
228 005250 000060 BIT4!B1T5 EAS. A6 MODULE (6F ERROR CODE) 


ose 


4 
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‘MODULE CALLOUT TABLE 


229 005252 000000 0 Hy CALLOUT 
230 005254 000130 BIT3!BIT4!B1T6 ».A5, A? MODULES (70 ERROR CODE) 
231 005256 000000 0 NO” CALLOUT 
232 005260 000010 BITS 3A4 MODULE (71 ERROR CODE) 
233 005262 000000 NO CALLOU 
234 005264 000012 BITI!BITS 3A2,A4 MODULE (72 ERROR CODE) 
235 005266 000000 zNO CALLOUT 
236 005270 000012 BIT1!B1T3 7A2,A4 MODULE (73 ERROR CODE) 
237 005272 000000 0 NO CALLOUT 
238 005274 000020 BIT4 zA5 MODULE (74 ERROR CODE) 
239 005276 000000 0 3NO CALLOUT 
240 0053 000020 BIT4 35 MODULE (75 ERROR CODE) 
241 005302 000000 NO CALLOUT 
242 005304 000020 BIT4 3A5 MODULE (76 ERROR CODE) 
243 005306 000000 0 ;NO CA T 
244 005310 000020 BIT4 3A5 MODULE (77 ERROR CODE) 
245 005312 000000 zNO CALLOU 
46 005314 000020 BIT4 sAS MODULE (78 ERROR CODE) 
247 005316 000000 0 NO CALLOUT 
248 005320 000020 BIT4 3A5 MODULE (79 ERROR CODE) 
249 005322 000000 Q 3NO CALLOUT 
250 005324 000020 BIT4 2A5 rte (7A ERROR CODE) 
251 005326 000000 NO CALLOU 
252 005330 000020 BIT4 3A5 MODULE (7B ERROR CODE) 
253 005332 000000 0 NO CALLOUT 
254 005334 000020 BIT4 3A5 MODULE (7C ERROR CODE) 
255 005336 000000 0 NO CALLOUT 
256 005340 000020 BIT4 3A5 MODULE (7D ERROR CODE) 
257 005342 000000 0 NO CALLOUT 
258 005344 165700 B176'8117:81T8:B1T9:B1T14B11131B1114:B1715; ;A7, A8, AY, A10, Al2, A14, A15, Al6 (7E 
259 005346 000201 BITO!BIT7 3A17,H > (7E_ERROR CODE 
260 005350 016200 BIT7!BITIO!BITI1!BIT12 3A8, Alt, Al2, A13 (7F ERROR CODE) 
261 005352 000000 0 :NO cALLOUT 
005354 000100 BIT6 sA7 MODULE (80 ERROR CODE) 

263 005356 001000 BIT9 PHASE DETECTOR 

360 001600 BIT7!B1T8!BIT9 3A8, A9, A10 MODULE (81 ERROR CODE) 
265 005362 000000 0 NO CALLOUT 

5364 001400 BIT8!BIT9 3A9, A10 MODULES (82 ERROR CODE) 
267 005366 000000 0 3NO CALLOUT 
268 005370 001700 BIT6!BIT7!BIT8!BIT9 iAre A8, A9, A10 MODULES (83 ERROR CODE) 
269 005372 000000 0 Ltou 
270 005374 025600 gir7sorreserro:eiri1:e1ris ;A8, ‘9. A10, Al2, A14 MODULES (84 ERROR CODE) 
271 005376 000000 A 
272 005400 001400 BIT8!BIT9 ae A10 MODULES (85 ERROR CODE) 
273 005402 000000 0 NO CALLOUT 
274 005404 001400 BIT8!BIT9 sA9, A10 MODULES (86 ERROR CODE) 
275 005406 000000 0 3NO CALLOUT 
276 005410 000600 BIT7!BIT8 sA8, A9 MODULES (87 ERROR CODE) 
277 005412 000000 0 3NO CALLOUT 
278 005414 00 0 7 CALLOUT (88 ERROR CODE) 
279 005416 000000 0 O CALLOU 
280 005420 000200 BIT7 AB MODULE (89 ERROR CODE) 
281 005422 000000 0 TU 
282 005424 000240 BITS!BIT7 1A6, AB MODULE (8A ERROR CODE) 
283 005426 000000 0 NO’ CALLOUT 
284 005430 000020 BIT4 3A5 tee (8B ERROR CODE) 


285 005432 000000 


o 


NO CALLO 


om 


4 
czRMO. ty! FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 165 SEQ 0049 
“MODULE ¢ OUT TABLE 


286 0054 000020 BITS AS “rte (8C ERROR CODE) 
287 0054 000000 0 NO CALLOUT 
288 005440 20 BIT4 3A5 MODULE (8D ERROR CODE) 
289 005442 000000 0 NO CALLOUT 
290 005444 165200 BIT7:6179:81111 1B1T13:81%16:81115; ;A8, A10, Al2, A14, A15, A16 MODULE (8E ERROR CODE) 
291 005446 000200 BIT? 
292 005450 0014 BIT8!BIT9 AD. A10 MODULES (8F ERROR CODE) 
293 005452 000000 0 3N LLOUT 
294 005454 0040 BIT11 zA12 MODULE (90 FRROR CODE) 
295 005456 0000 0 NO CA 
296 005460 004200 BIT7!B1T11 3A8, Ale MODULES (91 ERROR CODE) 
297 005462 000000 0 ; ALL 
298 005464 004000 B1T11 zAl2 MODULE (92 ERROR CODE) 
299 tre 4 000000 0 3NO CALLOU 
300 6054 004200 BIT7!B1T11 7A8, NP MODULES (93 ERROR CODE) 
301 bosa72 000000 0 NO. CALLOUT 
302 005474 004000 B1T11 3A12 MODULE (94 ERROR CODE) 
303 005476 000000 0 :NO CALLOUT 
304 005500 004300 BIT6!B1T7!B1T11 - A8, Al2 MODULES (95 ERROR CODE) 
305 005502 000000 0 eNO” CALLOUT 
306 005504 004000 B1T11 3A12 MODULE (96 ERROR CODE) 
307 005506 000000 3NO_CALLOUT 
308 005510 004000 BIT11 zAl2 MODULE (97 ERROR CODE) 
309 005512 000000 NO CALLOU 
310 005514 004200 B1IT7!B1T11 3A8, Ale MODULES (98 ERROR CODE) 
311 005516 000000 NO CALLOUT 
312 005520 004200 BIT7!B1T11 zA8, Al2 MODULES (99 ERROR CODE) 
a7 O032S¢ 000000 3NO cA Loy 
14 005524 004200 BIT7!B1T11 3A8, Al2 MODULES (9A ERROR CODE) 
315 005526 000000 3NO CALLOUT 
316 005530 004200 BIT7!B1T11 3A8, Al2 MODULES (9B ERROR CODE) 
317 005532 000000 zNO CALLOU 
318 005534 004200 B1T7!B1T11 3A8, Al2 MODULES (9C ERROR CODE) 
319 005536 000000 :NO_CALLOUT 
320 005540 004000 BIT11 zAl2 MODULE (9D ERROR CODE) 
321 005542 000000 3NO_CALLOUT 
322 005544 004000 BIT11 sAl2 MODULE (9E ERROR CODE) 
323 005546 000001 0 3NO_CALLOUT 
324 005550 004000 BIT11 zAl2 MODULE (9F ERROR CODE) 
325 005552 000000 3NO_CALLOUT 
326 005554 004000 B1T11 zA12 MODULE (AO ERROR CODE) 
327 005556 000000 3NO_CALLOUT 
328 005560 004000 BIT11 3Al2 MODULE (Al ERROR CODE) 
329 005562 000000 3NO_CALLOUT 
330 005564 004000 BIT11 zA12 MODULE (A2 ERROR CODE) 
331 005566 000000 3NO_ CALLOUT 
332 005570 004000 BIT11 sAl2 MODULE (A3 ERROR CODE) 
333 005572 000000 3NO_CALLOUT 
334 005574 004000 BIT11 zAl2 rater, (A4 ERROR CODE) 
335 005576 000090 zNO CALL 
336 005600 004200 B1T7!B1T11 7A8, NPM MODULES (AS ERROR CODE) 
337 005602 000000 NO CALLOUT 
338 005604 004200 B1T7!B1T11 3A8, Ald MODULES (A6 ERROR CODE) 
339 005606 000000 0 2NO_CALLOUT 
340 005610 004000 B1T11 sAl2 MODULE (A7 ERROR CODE) 
341 005612 000000 0 :NO_CALLOUT 
342 005614 004000 BIT11 3A12 MODULE (A8 ERROR CODE) 


| 
| 
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PE RSS te 2a 23 
OBNANEWN—OODNAUNEW 


VMI 


TERR eo 
NOALNVOO 


pistes 
No 
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Vow 
ess 
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36 666 
364 005670 
365 005672 
366 005674 
367 005676 


368 00 
369 005702 


399 005776 


000000 


geo, te pe est ISOLATOR MACRO V04.00 1=JAN-83 13:37:00 PAGE hag" 
/MODULE C TABL 


B1T11 
BIT11 
BIT11 
BIT11 
BIT11 
B1T11 
B1T11 
B1T11 
B1T11 
B1T11 
BIT11 
BIT11 
B1T11 
B1T11 
B1T11 
BIT11 


BIT7!B1T11 


— me 
“=~ = 
& 


4 
IT3!BIT4 


boa 
~ 
= 


SWMOWOWOWoWowWsowWooooeesoo SOWoWVWoWoWOowWoWoW ows ows owsowWoWoWowWowowowo 
~ 
7 


BIT6!B1T7!B1T11 


3NO_CALLOUT 


:NO CAL 

A7, AB Wie MODULE (B9 ERROR CODE) 
NO’ CALLOUT 
iB. atest MODULES (BA ERROR CODE) 
3NO CALLOUT (BB ERROR CODE) 
zNO CALLO 
zNO CALLOUT (BC ERROR CODE) 
NO CALLOU 
:NO CALLOUT (BD ERROR CODE) 
:NO_CALLOU 
sA12 MODULE (BE ERROR CODE) 
3NO_CALLOU 
sA12 MODULE (BF ERROR CODE) 
zNO CALLOUT 


(A9 ERROR 
(AA ERROR 
(AB ERROR 
(AC ERROR 
(AD ERROR 
(AE ERROR 
(AF ERROR 
(BO ERROR 
(B81 ERROR 


ULE (B2 ERROR 


(B3 ERROR 
(B4 ERROR 
(B5 ERROR 
(B6 ERROR 
(B7 ERROR 
(B8 ERROR 


CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 
CODE) 


OU 
3A5 MODULE (CO ERROR CODE) 


NO CALLOUT 


3A5 MODULE (C1 ERROR CODE) 


NO CALLOUT 


3A4, Mi MODULES (C2 ERROR CODE) 


NO CALLOUT 
iA ® OM ThG (C3 ERROR CODE) 
At: Ne (C4 crROR CODE) 


NO CALLOUT 


om 


| 


OUT TABLE 


412 sineit 


SRR HREES 


NOR) es 
—OOONOUSw 
oO 


KEVNSKARVSSRVSK 


BRS 
ARVO 


456 006160 


020000 
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BIT4!BITS 


— 
“4 
- 


IT8!BIT9 
IT8!BIT9!BIT13 


nd 
od 
. °) 


1T8!B1T9!B1T11 
IT9!BIT13 
IT8!B1T9!B1T11!B1T13 
TPOITTS OETA 


| ollamed 
— 


oe 
— 
so 


1T8!B1T11 


IT13!B1T14 
IT9!BITI3!BIT14 


any 
4 
— 
w 


1713 


WBOWoWoWoWo® SOOOW OOOW OOWTWOW OWOWoWoW oW GSOCoCCCcoCCooooooooo°oo0wo 
“ 
_ 
Ww 


1113 


SEQ 0051 


3A5, A6 MODULES (C5 ERROR CODE) 
:NO’ CALLOUT 

iA ihe ERROR CODE) 

NOT USED (C7 ERROR CODE) 


[NOT USED (C8 ERROR CODE) 
[NOT USED (C9 ERROR CODE) 
[NOT USED (CA ERROR CODE) 
{NOT USED (CB ERROR CODE) 
[NOT USED (CC ERROR CODE) 
{NOT USED (CD ERROR CODE) 
[NOT USED (CE ERROR CODE) 
NOT USED (CF ERROR CODD) 
[A9, A10 MODULE (DO ERROR CODE) 
NO CALLOUT 
7A9, A10, A14 MODULES (D1 ERROR CODE) 
NO CALLOUT 
[A10 MODULE (D2 ERROR CODE) 
iN CA LLOUT 
[A9, A10, A12 MODULES (D3 ERROR CODE) 
NO’ CALLOUT 
:A10, Als MODULES (D4 ERROR CODE) 
7A9, ai0, Al2, A14 MODULES (D5 ERROR CODE) 
A109, Ais. A15 MODULES (D6 ERROR CODE) 
NOT USED (D7 ERROR CODE) 
[A10 MODULE (D8 ERROR CODE) 
3NO_CALLOU 
:NOT USED (D9 ERROR CODE) 
ZA9, Al2 MODULE (DA ERROR CODE) 
NO’ CALLOUT 
[NOT USED (DB ERROR CODE) 


NOT USED 
3A14, A15 MODULES (DC ERROR CODE) 


NO CALLOUT 
A10, A14, A15 MODULES (DD ERROR CODE) 
NO LOUT 


sA14 MODULE (DE ERROR CODE) 
sA14 nODULE (DF ERROR CODE) 
sA14 rete (EO ERROR CODE) 
3A14 MODULE (E1 ERROR CODE) 





— 
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\CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-8 SEQ 0052 iC 
/MODULE CALLOUT TABLE | P 
457 006162 000000 0 zNOT USED 
458 006164 020000 B1T13 7A14 MODULE (E2 ERROR CODE) 
459 006166 000000 3 LLOU 
460 006170 020000 B1T13 7A14 MODULE (E3 ERROR CODE) 
461 006172 0000 :NO CALLOUT 
462 00617. 920000 BIT13 7A14 MODULE (E4 ERROR CODE) 
463 006176 00 0 :NO CALLOU 
464 006200 000000 0 :NOT USED (E5 ERROR CODE) 
465 006202 000000 0 3NOT U 
466 006204 160000 BIT13!BIT14!B1T15 tA14, A15, A16 MODULE (E6 ERROR CODE) 
467 006206 000000 Q OPEN 
468 006210 040000 RET14 tA15 MODULE (E7 ERROR CODE) 
469 006212 000000 4 7 OPEN 
470 006214 141000 B1T9!B1T14!B1T15 3010, A14, A15 MODULES (E8 ERROR CODE) 
471 006216 000000 0 “NO CALLOU 
472 006220 001000 BIT9 3A10 MODULE (E9 ERROR CODE) 
473 006222 000000 0 
474 006224 000600 BIT7!B1T8 tA8, Ad RODULES (EA ERROR CODE) 
475 006226 000000 0 =NO CALLOUT 
476 006230 0 :NO CALLOUT (EB ERROR CODE) 
477 006232 000000 0 ALL 
78 006234 0 NO CALLOUT (EC ERROR CODE) 
79 006236 000000 0 [NO CALLOUT 
006240 000100 BIT6 tA7 MODULE (ED ERROR CODE) 
481 006242 000000 0 [NO CALL 
482 006244 0 [NO CALLOUT (EE ERROR CODE) 
83 006246 000 0 :NO CALLOUT 
00625 000000 0 3NO CALLOUT (EF ERROR CODE) 
485 004252 000000 0 LL 
006254 7100000 BIT15 tA16 MODULE (FO ERROR COD®) 
487 006256 000000 0 =NO CALLOUT 
488 006260 100200 BIT7!B1T15 308 Aig MODULE (F1 ERROR CODE) 
489 006262 000201 BITO'BIT7 Al?, LLOU 
006264 100000 BIT15 :Al6 MODULE AED ERROR CODE) 
491 006266 000200 BIT7 CALLOUT 
492 006270 100000 BIT15 tA16 MODULE (F3 ERROR CODE) 
3 006272 BIT7 sHDA CALLOUT 
494 006274 100000 BIT15 zA16 MODULE (F4 ERROR CODE) 
495 006276 000200 BIT7 L 
496 006300 100000 BIT15 AAT MODULE (F5 ERROR CODE) 
497 006302 000000 0 =NOT USED 
498 006304 141000 BIT9!BIT14!BIT15 :A10, Ais, AiG | MODULE (F6 ERROR CODE) 
99 096306 000201 BITO'BIT7 "A17, HDA CALL 
500 006310 100000 BIT15 tA16 MODULE taal ERROR CODE) 
501 006312 000201 BITO!BIT7 [A17, HDA lU 
502 006314 100000 B1T15 TAl6 MODULE (F8 ERROR CODE) 
503 006316 000 0 =NO CALLOU 
504 006320 BIT15 Ate MODULE (F9 ERROR CODE) 
505 006322 000000 0 *NO CALL 
506 006324 000000 0 ‘NOT USED (FA ERROR CODE) 
507 006326 000000 0 *NOT USE 
508 006330 000000 0 [NOT USED (FB ERROR CODE) 
509 006332 000000 0 ‘NOT USE 
510 006334 000000 0 ‘NOT USED (FC ERROR CODE) 
511 006336 000000 0 ‘NOT USE 
512 006340 000000 0 :NOT USED (FD ERROR CODE) 
513 006342 000000 0 [NOT USED 
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CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-9 
MODULE CALLOUT TABLE 


514 006344 000000 
006346 000000 


06352 000000 





sNOT USED (FE ERROR CODE) 


NOT USED (FF ERROR CODE) 
sNOT USED 


Mu 
— 3 
Onaow 
23 
Ww 
uw 
Oo 
oO 
So 
oO 
o 
o 
So 
oooo 


SEQ 0053 
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|GLOBAL TEXT SECTION 


NOWUONA MEW 


— 


006354 
006354 


7 006362 
006362 


39 006420 
é 64 

41 006447 
45 0064 

46 006522 
47 006577 
48 006671 
49 006763 
50 007062 


52 007161 
53 007214 
54 

55 0 

56 007315 
57 

58 007426 
59 007474 
60 007545 
61 007574 


63 bores 
64 007 


wi 
So 
NN 
NO 
=—W 
NW 


122 


122 


120 


120 


a a ad td od od td od od 
—— he eS OOO ONIO || Oe eS SOON) = 


BHR SADDAAAAOA BRAM LAA A BWADAHA 9 MEAN 


060 


| 
060 
0 
0 006423 2: e 
5 006452 24 MSGMOL:: A 
“ 
51 
007973 
07312 2 : 
007404 ::.AS 
4 2: 
: AS 
62 
2::.AS 
65 VU 2: 
3::.A 
:3.A 
9 010070 7 
0 1 
7 
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-SBTTL GLOBAL TEXT SECTION 


:" THE GLOBAL TEXT 
> MESSAGES, AND 


hs “ior CONTAINS FORMAT STATEMENTS, 
; MORE THAN ONE TE 


SEC 
43 NFORMATION THAT ARE USED IN 


3 NAMES OF DEVICES SUPPORTED BY PROGRAM 


ispvrve: 
“ASCIZ /RPO7/ 


; TEST DESCRIPTION 


L$DESC:: 
-ASCIZ /RPO7 FRONT END=HOST ISOLATOR/ 


: FORMAT STATEMENTS USED IN PRINT CALLS 


/iN/ 
ie %01%A, PG/ 


/ZATEST %D2%A. BYPASSED, ep he OF FLINEZN/ 

/ZATEST 2022A. wert ary WRITE LOCKEDZN/ 

/ANEADRIVE ZOixA. WAITING FOR ‘MOL’ TO SET (DRIVE OFFLINE)/ 
/ENZADRIVE %01%A, WAITING FOR *DRY’ TO SET (DRV NOT READY)/ 
/ZNZATO REFORMAT FE CYLINDER, TRACK #0 UPON PROGRAM COMPLETION. / 
/%NZAREFORMATTING FE CYLINDER, TRACK #0. USE THE FORMAT PROGRAM/ 


/ZAREGISTER UNDER TEST: %06/ 
/ZNZAEXPECTED DATA: %06%A 
aaa LIST: / 


/ZAe* THERE IS a A POSSIBILITY OF A HDA FAILURE **%N/ 
/ENZADRIVE 012A, 

/%AMICRO=CODE TEST s: ZTRTZTATZA (CHEX)/ 

/aA ERROR CODE: S etsraren (HEX) 2N/ 
/ZAFAILING FUNCTION: 2T/ 

/ZNZASEEKS TOO LONG: %D3/ 


/ZNZASEEK OVERSHOOTS: %D3/ 

/ENZASOFT SEEK OVERSHOOTS: %D3/ 

peer tore DETECTED SKI°S %D3/ 

A oe ne ERRORS: %D3/ 

/ZNZAPLO UNSAFES: %D3/ 

/ZNZAFAILED RECAL ATTEMPTS: %D3/ 

/ZNZACHEX) ERROR 406 cWIRIES, IF PRESENT, ARE AS FOLLOWS:/ 
/RTRTZTZIZA 


/ZNZA8080 REV. LEVEL IS: AD SENEACION Dh LEVEL IS: %03/ 
/ZNZAROUTINE NO. (2 CHAR “'HEX'’ INPUT 


NNNN 


FRMTOO 


FRMTO1:: 


Ss 
Ss 
S 
MESG1S: : AS 
Ss 
RECEIVED DATA: %06/ 


FRMTO7::.AS 
FRMT10::.AS 


FRMT17::.A 


FRMT20::.A 
FRMT23::.A 


AOA AAOQOAOAAQO  AQOOQAAAAQAOAOA MAOooraono 
on bane lll co heme bane bane bane bane bam bem diitiiian Law bam Lame em bam bam Lem bam Lanta Lee hem Lee 1 58 1 oe oe hoe Loe! 
NN NNN NNNN ONIN NINN ee 


Ss 
S 
Ss 
S 
FRMT16::.AS 
Ss 
S 
s 


SEQ 0054 


ne semen 


D5 
/CZRJMAO_RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 15-1 
GLOBAL TEXT SECTION 


re 010337 045 116 045 FRMT4O::.ASCIZ /ZNZADRIVE RPCS1  RPWC RPBA RPCS2 
26 010430 045 116 045 FRMT41::.ASCIZ /%NZ06%A %06%A %06%A %06%A %06%A RrOGEA %06/ 
8 010510 045 116 045 FRMT5SO::.ASCIZ /2ZNZARPER1 RPAS RPLA RPDB RPMR1 = =RPDT 
ie 010601 045 116 045 FRMTS1::.ASCIZ /%NZ06%A %06%A %06%A %06%2A %06%2A %06%A %06/ 
81 010661 045 116 045 FRMT60::.ASCIZ /ZNZARPOF RPDC RPCC RPER2 RPER3S RPEC1 
He 010753 0.5 116 045 FRMT61::.ASCIZ /2ZNZ06%ZA %06%A %06%ZA X%06%A %06%A %06%A %062N/ 
84 011035 045 101 122 FRMT70::.ASCIZ /%ZARPBAE —RPCS3/ 
116 045 FRMT71: STASCIZ /ENZ06%A =%062N/ 


85 011955 045 
86 
97 


RPDS/ 


RPSN/ 


RPEC2/ 


SEQ 0055 


rr eS oe ae 


-CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13: 
(GLOBAL ASCII MESSAGE SECTION 


| } -SBTTL GLOBAL 
3 011074 104 125 101 AD::  —.ASCIZ 
| 4 011121 101 061 062 DS::  .ASCIZ 
| 5 011132 122 110 040 RH:: .ASCIz 
6 011151 103 101 102 CA::  .ASCIZ 
7 011161 101 060 061 Ji:: .ASCIZ 
8 011166 101 60 062 J2::  .ASCIZ 
9 011173 101 060 063 J3:: .ASCIZ 
10 011200 101 060 064 J&::  .ASCIZ 
11 011205 101 060 065 J5:: .ASCIZ 
12 011212 101 060 066 J6::  .ASCIZ 
13 011217 101 060 067 J7::  .ASCIZ 
14 011224 101 060 070 J8:: .ASCIZ 
15 011231 101 060 O71 J9:: <.ASCIZ 
16 011236 101 061 060 J10::  <ASCIZ 
17 011243 101 061 061 Jil::  <ASCIZ 
18 011250 101 061 062 Ji2:: -ASCIZ 
19 011255 101 061 063 J13::  <ASCIZ 
20 011262 101 061 064 J14::  <ASCIZ 
21 011267 101 061 065 J15::  <ASCIZ 
22 011274 101 061 066 J16::  <ASCIZ 
23 011301 101 061 067 J17:: <ASCIZ 
24 011306 101 062 060 J20:: -ASCIZ 
25 011315 101 062 061 J2l::  <ASCIZ 
27 011320 110 104 101 HDA::  .ASCIZ 
28 011325 124 105 122 TERM:: .ASCIZ 
29 011341 063 040 120 SENSOR:: .ASCIZ 
30 011361 102 114 117 BLOWER:: .ASCIZ 
31 011376 120 117 127 PTRANS:: .ASCIZ 
32 011421 115 117 124 MTRBRK:: .ASCIZ 
33 011443 122 105 114 KIRELA:: .ASCIZ 
34 011455 117 120 105 OPRPNL:: .ASCIZ 
35 011477 115 117 124 DRVBLT:: .ASCIZ 
37 011531 122 105 101 READTD:: .ASCIZ 
38 011543 127 122 124 WICKHD:: .ASCIZ 
39 011566 127 122 111 WTCKD:: .ASCIZ 
41 011607 120 114 101 MESG13::.ASCIZ 
42 011667 120 114 101 MESG14::.ASCIZ 
44 011747 103 117 115 EM1::  .ASCIZ 
45 012015 104 122 111 EM2::  ASCIZ 
46 012055 104 122 111 EM3:: = ASCIZ 
47 012100 104 122 111 EM4::  .ASCIZ 
48 012116 122 120 103 EMS::  <ASCIZ 
| 49 012155 122 120 103 EM6::  -ASCIZ 
30 012217 104 122 111 EM7:: LASCIZ 
52 012272 122 110 040 EM11:: .ASCIZ 
53 012342 102 111 124 EM12:: -ASCIZ 
54 012410 122 120 103 EM13:: <cASCIZ 
55 012454 122 105 107 EM14:: <ASCIZ 
56 012523 122 105 107 €M15:: <ASCIZ 
57 012562 123 103 = 040 :«EM16:: = .ASCIZ 


E 
37:00 PAGE 16 


ASCII MESSAGE SECTION 


/DUAL DRIVE RESPONSE / 
/A12-S01 / 


sMASSBUS DISABLE SWITCH 
Ap a / 


~ 

> 

= 

vel a7 
A a ee aE aS ae eee $ 


/HDA / 

/TERMINATOR / 

/3 PHASE SENSOR / 

/BLOWER ASSY / 

/POWER TRANSFORMER / 
/MOTOR=BRAKE ASSY / 
/RELAY=K1 / 

/OPERATOR'S PANEL / 

/MOTOR BELT, MOTOR SPRING / 


/READ TO'S/ 
/WRT CHK HDR & DATA/ 
/WRITE CHECK DATA/ 


/PLACE INTERFACE SWITCH A12-S01 IN DOWN POSITION/ 
/PLACE INTERFACE SWITCH Al2-SO1 IN UP POSITION/ 


/COMPOSITE ERROR SET WHEN NOT EXPECTED/ 
/DRIVE HUNG, ey SET IN TIME/ 


LINE/ 
/RPCS2:OR FAILED TO SET IN TIME/ 
/RPCS2:0R FAILED TO CLEAR IN TIME/ 
/DRIVE SHOULD BE WRITE ENABLED AND ON LINE!/ 


/RH_ CONTROLLER DIDN'T RESPOND (NO SSYNC)/ 
/BIT(S) UNDER TEST DIDN'T CHANGE STATE/ 


SEQ 0056 


C 
Pp 


"a a a at amas 


ee 
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 16-1 SEQ 0057 
GLOBAL ASCII MESSAGE SECTION 


/RPCS2:1R FAILED TO SET IN TIME/ 


_ 
o 
Ww 
m 
= 
= 
~N 
. 

> 
wm 
o 
i ml 
mst 


58 012622 122 120 
59 


j 
i 
| 
60 012661 122 120 103 €M20:: .ASCIZ /RPCS1:MCPE DIDN'T SET WHEN EXPECTED/ 
61 012725 122 120 103 EM21:: -ASCIZ /RPCS1:SC OR TRE DIDN'T SET WHEN EXPECTED/ 
| 62 012776 102 111 124 EM22:: .ASCIlz /BIT(S) UNDER TEST DIDN'T SET WHEN EXPECTED/ 
63 013051 102 111 124 EM23:: .ASCIZ /BIT(S) UNDER TEST DIDN'T CLEAR WHEN EXPECTED/ 
013126 122 110 040 EM24:: .ASCIZ /RH INTERRUPTED AT WRONG PRIORITY/ 
65 013167 122 110 040 EM25:: %ASCIZ /RH GENERATED FALSE INTERRU 
66 013224 122 110 040 EM26:: .ASCIZ /RH DIDN'T INTERRUPT WHEN EXPECTED/ 
67 013266 104 122 111 EM27:: .ASCIZ /DRIVE NOT PRESENT, TEST INVALID/ 
69 013326 103 117 115 EM30:: .ASCIZ /COMMAND EXECUTION INCORRECT/ 
70 013362 104 101 124 €M31:: .ASCIZ /DATA LINE(S) STUCK LOW/ 
71 013411 106 101 111 EM32:: .ASCIZ /FAILED TO SEEK PROPERLY/ 
| 01344 104 105 124 EM33:: .ASCIZ /DETECTED ERROR DURING DATA TRANSFER/ 
73 013505 106 101 111 EM34:: .ASCIZ /FAILED TO CORRECTLY DETECT A WRITE CHECK ERROR/ 
| 74 013564 106 101 11. +EM35:: .ASCIZ /FAILED AN RPO? INTERNAL MICRODIAGNOSTIC TEST/ 
75 013641 122 110 130 EM36:: .ASCIZ /RHXX REGISTER SELECTION FAILURE/ 
2 013701 104 101 124 £M37:: .ASCIZ /DATA RECEIVED DOESN'T MATCH EXPECTED DATA/ 
78 013753 104 105 124 EM40:: .ASCIZ /DETECTED ERROR DURING WRITE DATA OPERATION/ 
79 014026 104 105 134 EM41:: .ASCIZ /DETECTED ERROR DURING FORMAT OPERATION/ 
80 014075 104 105 105 EM42:: .ASCIZ /DETECTED A PERMANENT ERROR/ 
81 014130 111 116 124 EM43:: .ASCIZ /INTERNAL RPO? DIAGNOSTIC TIME-OUT/ 
83 EVEN 
88 .SBTTL GLOBAL ERROR REPORT SECTION 
90 p++ 
91 t THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
92 : THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
95 + THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 
95 
96 014172 ERRO:: 
97 014172 004737 017326 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT NOW 
98 014176 004737 020532 JSR PC .DECODE ‘DECODE THE BIT MASK FOR THE ERROR! 
99 014202 013746 002456 MOV TESTRG,-(SP) 
014206 012746 007161 MOV #FRMTOO, =(SP) 
014212 012746 000002 MOV #2,-(SP) 
014216 010600 MOV SP.RO 
014220 104414 TRAP  C$PNTB 
014222 062706 000006 ADD 
100 014226 013746 002452 MOV RCVED,=(SP) 
014232 013746 002454 MOV EXPTED,=(SP) 
014236 012746 007214 MOV #FRMTO1,-(SP) 
014242 012746 000003 MOV #3,-(SP5 
014246 010600 MOV SP.RO 
014250 104414 TRAP  C$PNTB 
014252 062706 000010 ADD #10,SP 
101 014256 004737 016212 JSR PC ,OMPREG :D0 THE REGISTER DUMP NOW 
102 014262 004737 016556 JSR PC; FAULTS REPORT THE FAULT LIST 
104 014266 012746 006420 MOV ACRLF =<SP) 
014272 012746 000001 MOV #1,-(§P) 
014276 010600 MOV SP,RO 


mn eee ee ee ee 


-———-— +--+ SS Se 


| 
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|GLOBAL ERROR REPORT SECTION 


| 0143 


143 
105 0 
| 
| 
| 
| 
| 
| 
| 


— 4 ss oS 
s=238°S8 


Nm—OO0ON 


SO BOOSCOOCOCOCOCOOCSOO oeCcoooooooooo ocCoCoCOoO oOo 
NAN BALOO 


WW 
wMuiv yen dd aed ed 
MOLSON 


aw HS a sd tw 


104414 
062706 


104423 


004737 
010446 


004737 
012746 


oooon 2o000ck 
ot NO IO 
ge ate Gg 
_ 
. 


000004 


017326 
015416 
002660 


000005 


000014 


015416 
002660 


006420 
000001 


000004 


020532 


000002 


000006 


000002 


L10002: 


ERR1:: 


L10003: 


ERR2:: 


CSPNTB 
as 


C$MSG 


>C,,SAVRPR 
R4,=(SP) 
FC ,OCTHEX 


sPSTACK+6,=(SP) 
#PSTACK+4,=(SP) 
ete feat 


#14,SP 
@RPER2,=(SP) 
#177400, (SP) 
PC ,OCTHEX 


#PSTACK+6,=(SP) 
#PSTACK*4,=(SP) 
#PSTACK+2,=(SP) 


#CRLF ,-(SP) 
#1,-(SP) 


SP,RO 
Sg ly 


C$MSG 


PC ,DECODE 


#6,SP 
FATOF .-(SP) 
#FRMTO6, =(SP) 
#2,-(SP) 

P’RO 


e 


GET THE REGISTER SNAPSHOT NOW 
3PUT THE ROUTINE NUMBER ON THE STACK 
zAND CONVERT TO HEX 


GET THE CONTENTS OF RPER2 ON THE STACK 
zAND ELIMINATE THE HIGH ORDER BITS 
NOW CONVERT TO HEX 


DUMP THE REGISTERS NOW 

REPORT THE MODULE LIST 

:DECODE THE MASK BITS FOR A MODULE CALLOUT 
ee THE FIND 


;DECODE THE MESSAGE 


SEQ 0058 


— 


-—-——— + — - . ee 
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‘GLOBAL ERROR REPORT SECTION 


014546 104414 TRAP  C$PNTB 
014550 062706 000006 ADD #6,SP 
130 014554 013746 002452 MOV RCVED,=(SP) 
014560 013746 002454 MOV EXPTED,=(SP) 
| 014564 012746 007214 MOV #FRMTO1,=(SP) 
014570 012746 000003 MOV #3,-(SP 
014574 010600 MOV P,R 
014576 104414 TRAP CSPNTB 
- 014600 062706 000010 ADD #10,SP ae? 
132 014604 012746 006420 MOV #CRLF,-(SP) 
014610 012746 000001 MOV #1,-(SP) 
014614 010600 MOV SP,RO 
014616 104414 TRAP  C$PNTB 
014620 062706 000004 ADD #4,SP 
Ht 014624 004737 016556 JSR PC,FAULTS tery THE FAULT LIST 
135 014630 012746 006420 MOV #CRLF ,-(SP) 
014634 012746 000001 MOV #1,-(SP) 
014640 010600 MOV SP,RO 
014642 104414 TRAP  C$PNTB 
014644 062706 000004 ADD #4,SP 
136 014650 L10004: 
nn 014650 104423 TRAP — C$MSG 
138 014652 ERR3:: 
\i*% 014652 004737 016212 JSR PC,DMPREG ee THE REGISTERS 
141 014656 012746 006420 MOV #CRLF ,-(SP) 
014662 012746 000001 MOV #1,-(SP) 
014666 010600 MOV SP,RO 
01467 104414 TRAP CS$PNTB 
014672 062706 000004 ADD #4,SP 
142 014676 L10005: 
16 014676 104423 TRAP C$MSG 


CZRJMAO RPO7 FE/HOST a MACRO V04.00 1-JAN-83 13:37:00 PAGE . ¥ SEQ 0060 
GLOBAL SUBROUTINES SECTI 


} -SBTTL GLOBAL SUBROUTINES SECTION 

? £59 Re sree ene RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR 
5 ALL 

$ ‘ JSR PC,SIZE70 sCALL ROUTINE 

: 3R5 MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 

11 014700 005037 002502 SI1ZE70: CLR RHEXT CLEAR RPBAE OFFSET 

12 014704 005037 002504 CLR RHTYPE ZCLEAR RHXX TYPE REGISTER (RH11) 

13 014710 013746 000004 MOV ERRVEC (SP) 7SAVE CONTENTS OF ERROR vECTOR 

14 014714 012737 014764 000004 MOV #2$ ,ERRVEC ;SETUP ‘TRAP’ RETURN ADDRESS 

15 014722 011500 MOV (R5),RO 3GET RPCS1 ADDRESS 

16 014724 062700 000050 ADD #50,R0 sGET REGISTER OFFSET FOR RH70 

17 014730 012702 000012 MOV #10. ,R2 GET NUMBER OF REGISTERS TO CHECK 

18 014734 005720 TST (RO)+ Bees IF NOT A is aera 

19 014736 005720 TST (RO)+ zTRAP IF NOT A VALID RPCSS 

20 014740 012737 000050 002502 MOV #50 ,RHEXT LOAD OFFSET FOR RPBAE. (33 A ena RH) 
21 014746 005720 1$: TST (RO)+ P IF NOT A VALID REG 

22 014750 005302 DEC R2 ‘DONE WITH ALL 32 REGISTERS. » 

23 014752 001375 BNE 1$ 7BR IF NO 
24 014754 012737 000074 002502 MOV #74 ,RHEXT [LOAD OFFSET FOR RPBAE (32 REGISTER RH) 
25 014762 000403 BR 
26 014764 012716 014772 2s: MOV #3$, (SP) SETUP RETURN ADDRESS 
34 014770 000002 RTI 
29 014772 011500 3$: MOV (R5),RO sGet RPCS1 REGISTER 

30 014774 013702 002502 MOV RHEXT,R2 :GET RPBAE REGISTER OFFSET 

31 015000 001415 BEQ 4$ 7BR ue NONE 

32 015002 060002 ADD RO,R2 :GET RPBAE REGISTER 

33 015004 052710 001400 BIS #A17'A16, (RO) 3SET EXTENDED ADDRESS BITS IN RPCS1 

34 015010 022712 000003 CMP #3,(R2) ; ARE a EXTENDED BITS SET IN RPBAE ? 
35 015014 001007 BNE 4$ :BR NO 

36 015016 005012 CLR (R2) CLEAR EXTENDED potrer te BITS IN RPBAE 
37 015020 011046 MOV (RO) ,= ; SAVE aes” REG CONTENTS 

38 015022 042726 176377 BIC #ccAIT A16>, (S sP}+ ARE THE EXTEND BITS CLEAR IN RPCS? ? 
39 015026 001002 BNE a ;BR IF no 

40 015030 005237 002504 INC YPE 7SET RHXX TYPE REGISTER (RH70) 

41 015034 012637 000004 4$: MOV SP) ERRVEC RESTORE CONTENTS OF ERROR VECTOR 

42 015040 000207 RTS PC 


Oe aE SEI ag AER RE oe 0 NT, CUE ONY SN al EO Le LE 
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DISK DRIVER AND SUPPORT ROUTINES 


eres 


SOWDWNAUEWN—OVDONOUEWwhN— 
So 


Sooooo°cKeo 
aad aad and aad and end cad ad 


oooo 


Racers 
RIWWNO 
JoSVERSSS 


Soesscss2 
par er per Peers 


104422 


000207 


104422 


000207 


000062 
002400 165450 
017000 


165440 


002400 165414 


165374 


165350 


-SBTTL DISK DRIVER AND SUPPORT ROUTINES 


MAAR AARAAALAAAALALAALAAALAAAAAAL ALAA EAA ARAL AAA RAR AAA ARERR RRA AAAS RADA SD SO 


i THIS MODULE IS USED ss A DIAGNOSTIC COMMAND HAS JUST BEEN iste BY 
;THE MODULE “DRIVER. IT POLLS EP 


sReeisite AND USES A_‘WATCHDOG TIMER’ TO VERIFY THAT THE BIT DOES EVENTUALLY 
sSET. IF IT DO - alae AN ERROR MESSAGE IS PRODUCED REPORTING A MICRO- 
:DIAGNOSTIC TIMEOU 
a rasessnabnnsanaatetinneenteiinenianananisntetednmianinamimmantiintandets 
RPARDY: MOV R1,-(SP) sSAVE R1 
MOV R4,=(SP) sSAVE R4 
MOV #50. ,R1 :GET AN OVERALL ITERATION COUNT 
1$: BIT BITPOS ,@RPAS 3DONE?? 
BNE zIF SET, YES 
JSR PC WAIT USE THE wae TIMER 
DEC R1 + aht's CYCLE TO-GO 
BGT 1$ T ZERO, KEEP WATCHING 
MOV @RPMR1 ,R4 ‘GET NCONTENTS OF RPMR1 
TRAP CSERHRD 
WORD 401 
WORD €EM43 
-WORD ERR1 
2$: MOV BITPOS ,@RPAS RESET THE ATTENTION BIT TO 0 
MOV he »R4 RESTO RE R4 
MOV (SP)+,R1 RESTORE R1 
RTS PC TAKE THE RETUWN 


eItii titi iii iii iit iii iii iiiiitiiiiiiiriiiie) 
STHIS MODULE IS CALLED BY THE DRIVER WHEN EVER A NON-DATA COMMAND HAS 
i JUST BEEN forse (EXCEPT A DIAGNOSTIC COMMAND.) IT POLLS FOR RPDS: 

sDRY. THE FUNCTION IS NOT TIMED USING A WATCHDOG TIMER, BUT SUPERVISOR 

3 "BREAKS" ARE SUPPORTED. 


FRR EE EE EEEEEEAEEEEEEEEEEEEEEAEEREEEEREEERAEEREREEREEAEEEEREEEE REE 


READY: 
TRAP CS$BRK 


TSTB @RPDS sREADY T RUE? 
BPL READY ;NO, SO WAIT SOME MORE 
RTS PC TAKE THE RETURN 


Pitti iii iii tii iii iit roti ititiiiiis) 
iTHIS MODULE IS rae BY THE pea‘es ae A_DATA COMMAND HAS JUST BEEN 
ZISSUED. IT POLLS FOR CONTROLLFR READY. THE FUNCTION IS NOT TIMED USING 

iA WATCHDOG TIMER, BUT SUPERVISOR "BREAKS" ARE SUPPORTED. 


FERRARA EERE EERE EEE EEE EERE EAE EEE EREREREEEEEEEERERKEREEEEEEEE EEE 


CREADY: 
TRAP C$BRK 
TSTB @aRPCS1 CONTROLLER READY? 
BPL CREADY s1F 0, ny SOME MORE 
RTS PC s1T'S 1, RETU 


wea iii ans aaa pacicnianicacaeemn aan cmmatiiticiistinniaaiiataes cana 
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DISK K DRIVER AND SUPPORT ROUTINES 

1 

2 FF ddadmin dad oddball 
3 THIS MODULE DOES THE ACTUAL DISK ‘DRIVING’. INPUTS TO THE fag or 

4 ZINCLUDE THE FOLLOWING TAGS: NEGWRD, DESCYL, DESTRK, TABADD, FUNCTN 

5 : RD = THE B COUNT TO BE NEGATED, DESCYL = THE DESIRED CYLINDER 

6 sADDRESS, DESTRK = THE DESIRED TRACK / SECTOR ADDRESS, TAB 

7 sADD SS OF THE TRANSFER BUFFER, = THE COMMAND TO BE EXECUTED. 

8 LL_TO THE MODULE IS: JSR 

9 ZBUFFERS ARE LOADED/UNLOADED VIA LINKAGE PROVIDED BY TABADD. 

10 titi titi tittle ti titi iii iii iit titi iii tiie ti tir) 
11 

12 015146 005437 002412 DRIVER: NEG NEGWRD NEGATE THE WORD a ONLY ONCE! 

13 015152 37 015122 JSR PC READY POLL FOR DRIVE READ 

14 015156 022737 000035 002420 cMP #DIAG,FUNCTN DIAGNOSTIC C oP 

15 015164 1414 BEQ 1$ :IF EQUAL, SKIP NEXT CODE 

16 015166 013777 002412 165320 MOV NEGWRD ,aRPWC WORD COUNT <---> RP REGISTER 

17 015174 013777 002416 165344 MOV DESCYL ,@RPDC GET THE CYLINDER ADDRESS TO THE DEVICE REGISTER 
18 015202 013777 002414 1653 MOV DESTRK ,@RPDA eTR K/SEC ===> RP REGISTER 

19 015210 013777 002366 165300 MOV TABADD ,@RPBA :LOAD THE TRANSFER ADDRESS 
20 015216 013777 002420 165266 18: MOV FUNCTN,@RPCS1 GET T HE erry TO EXECUTE 
21 015224 023727 002420 000035 CMP FUNCTN,#DIAG 71S hogs A DATA COMMAND? 
22 015232 101004 BHI 2$ ;1F > THAN A DIAGNOSTIC COMMAND, YES 
23 015234 001406 BEQ 3$ IF IT GETS HANDLED UNIQUELY 
24 015236 004737 015122 JSR PC ,,READY SPOLL “FOR DRIVE READY 
25 015242 000405 BR SAND SKIP NEXT POLL OPERATION 
26 015244 004737 015134 2$: JSR PC,CREADY POLL FOR CONTROLLER READY 
27 015250 000402 BR NOW RETURN 
28 015252 004737 015042 3$: JSR PC ,RPARDY ;LOOK FOR ATTENTION NOW 
$3 015256 000207 4$: RTS PC NOW RETURN 
31 tii iii iriiiriiiig) 
32 iTHIS MODULE IS USED TO INITIATE THE DIAGNOSTIC MONITOR IN THE RP-07. 

33 317 IS DEPENDENT UPON ‘DRIVER’ FOR ON. 


35 ODE’ WHEN THIS MODULE COMPLETES. 
36 ‘COMMANDS OTHER THAN DRIVE CLEAR, AND DIAGNOSTIC COMMA 


37 g2 tates Btn tn By es Danre Res wre ned 2 eres EO AE OOD 


38 
39 015260 004737 


O1666e DIAGST::JSR 
012737 state 002420 MOV #DIAG 
01 


5146 JSR PC, DRIVE 
3 6662 JSR PC, SEIZE 
310 000207 RTS PC 


eC 


21SS 


THE DRIVE WILL BE a 


GET THE DRIVE'S ATTENTION! 
7000 165244 MOV #177000 anon SET ND 


P THE ' 


HAKE’ 
‘CREATE uo COMMAND 


UE T 


ADD = THE STARTING 


SEQ 0062 


RESET COMPOSITE ERROR (SETS WHEN FE IS WRITTEN INTO RMPR1) 
;AND RETURN TO MAIN 


COMPLETI 
34 i SIDE AFFECTS INCLUDE THHE FACT THAT THE DRIVE WILL BE IN Nig prot 


‘a0 sie shies pa emsinastenietetineonac tt japepniiiiainsithnmnaiig 
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DISK DRIVER AND SUPPORT ROUTINES 


1 
| 2 MPRA AAAAAAAZAALALAALALALLALLALE LE LE LE LE TEETER RRR ETE TTT TTP TTT PT PTC Pa 
| 3 ‘THIS MODULE IS USED TO TURN OFF THE RP=07 DIAGNOSTIC MONITOR. IT IS 
| 4 [DEPENDENT UPON ‘DRIVER’ FOR ITS COMPLETION. IT WILL CLEAR ANY ERRORS 
5 :WHICH SET AS A RESULT OF A DIAGNOSTIC ROUTINE EXECUTION. THERE ARE 
6 :NO OTHER SIDE-EFFECTS. 
. FARRAR AERA EE EE EEE EEE EEE AEAEEEEEEEAERAEREEAEEERARAREREEREEEEAA EERE EEEE 
} 
9 015312 012737 040011 002420 DIAGEN: MOV #TRE ‘DRCLR, FUNCTN; SET _UP FOR A CONTROLLER-DRIVE CLEAR COMMAND 
10 015320 004737 015146 JSR DRIVER SSUE THE COMMAND 
| 11 015324 012777 177400 165204 MOV wi P7600, aRPMR1 : TERMINATE THE SESSION 
12 015332 012737 000035 002420 MOV WDIAG,FUNCTN AND SET UP THE COMMAND 
13 015340 004737 015146 JSR PC DRIVER i 1SSU UE THE COMMAND NOW! ! 
14 015344 005077 165166 CLR a@RPMR1 *RESET THE DIAGNOSTIC MODE BIT 
15 015350 000207 RTS PC sRETURN TO MAIN 
17 FARRER EERE EREEEEEEEREREEEEEEEEEEREEEREREEAEREREEEEEREREEREEEREEEREREEEEEEEE 
18 :THIS MODULE RECEIVES INPUT FROM R4. OUTPUT GOES TO RPMR1. it Is 
19 [DEPENDENT UPON "DRIVER' FOR COMPLETION. THIS ROUTINE SHOULD N 
20 ‘BE EXECUTED UNTIL THE DIAGNOSTIC MONITOR HAS BEEN TURNED oi THROUGH 
21 : THE EXECUTION OF "DIAGST' 
22 TT TITT TTT ITITITIITITTTITITITITIT TIT LiLLi LiL LiL Litt LLL LEE EEG 
23 
24 015352 010477 165160 DIAGLD: MOV R4,@RPMR1 ;NOW SET THE DJAGNOSTIC NUMBER 
25 015356 052777 100000 165152 BIS #B1T15,aRPMR1 AND SET DMD = 1 
26 015364 012737 000035 002420 MOV #DIAG,FUNCTN AND SET My FOR A DIAGNOSTIC COMMAND 
27 015372 004737 015146 JSR PC, DRIVER : ISSUE THE COMMAND NOW! 
38 015376 000207 RTS PC ‘RETURN TO CALLER! 
30 .SBTTL PROGRAM UTILITIES 
32 FREER EEEEEEEEEEEEEE EEE EEEEREREEREEEREEEEEEEREEEEEEREREREEERERAEREEEEREEEEEE 
33 ‘THIS MODULE CLEARS THE DRIVE ERROR STATUS THROUGH A CONTROLLER CLEAR. 
34 SIT SAVES THE STATUS OF THE MAINTENANCE REGISTER (RPMR1), AND RESTORES 
35 [IT WHEN THE RESET PROCESS IS COMPLETE. 
36 FERRARA EERE EE EEE EERE EE EEEAEEEREREEREEREREEREREREREEEREEEREEEEEEEEREEEE 
37 
38 015400 017746 165132 DRVCLR: MOV @RPMR1,-(SP) SAVE CONTENTS OF RPMR1 
39 015404 004737 016662 JSR PC, SEIZE “NOW RESET THE DRIVE 
40 015410 012677 165122 MOV (SP)+,aRPMR1 § :RESTORE THE WRAINTENANCE REGISTER 
41 015414 000207 RTS PC SAND RETURN TG CALLER 
43 FF RARER EERE EERE EEE EERE EEEEREEEEEEEEEREEREEEEREREREEEEEEEEEEEEEREREEEEE 
44 :THIS MODULE IS PART OF THE I/O SUPPORT. IT CONVERTS OCTAL TO ASCII 
45 SHEX. IT RECEIVES ITS INPUT FROM THE TOP OF THE STACK. IT'S OUTPUT 
46 t1S PLACED IN PSTACK = PSTACK + 6. 
rt 4 SEERA REE EEE EE EEE EEE EERE EE ARERAEEREKE EERE EEEREEEEEEEEEEEEREREREEREREE 
4 
49 015416 010146 OCTHEX: MOV R1,-(SP) ZSAVE R1 
50 015420 010246 MOV R2.=(SP) *SAVE R2 
51 015422 012700 002652 MOV #PSTACK,RO [SET UP THE BUFFER ADDRESS 
52 015426 012702 000004 MOV #4,R2 *GET THE ITERATION VALUES 
53 015432 012701 000004 1$: MOV #4-R1 SAND DUPLICATE FOR TWO LOOPS 
54 015436 005010 CLR (RO) i INITIALIZE THE BUFF 
55 015440 006310 2$: ASL (RO) ;MOVE THE PREVIOUS BIT(S) OVER 
56 015442 000241 CLC * CARRY 
57 015444 006366 000006 ASL 6(SP) ROTATE A BIT FROM THE TEST VALUE 


-4 


Tal 


-——_-—-——— 
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{ 
[PROGRAM UTILITIES 
58 015450 
15452 


103002 
59 015452 052710 000001 
60 015456 005301 
61 0154 003367 
62 015462 5720 
63 015464 005302 
64 0154 3361 
65 015470 012702 000004 
66 015474 012700 002652 
67 015500 005710 
68 015502 3004 
69 015504 005020 
70 015506 5302 
71 015510 003373 
Le: 015512 0412 
73 015514 021027 000011 
74 015520 101003 
75 015522 062720 000060 
76 015526 000402 
77 015530 062720 000067 
78 015534 005302 
79 015536 003366 
80 015540 012602 
81 015542 012601 
82 015544 012616 
83 015546 000207 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 015550 005037 002426 
Bs 4 015554 005037 015750 
101 015560 012700 000120 
15564 104462 
102 015566 010005 
103 015570 103031 
104 
105 
106 
107 015572 010537 015724 
108 015576 011537 015726 
109 015602 011537 015730 
110 015606 062737 000002 
111 015614 012537 0157 
112 015620 062737 000004 


015730 
015732 


3$: 


4$: 


5$: 


6$: 
7$: 


‘HETERMINE IF 


BCC 3$ 

BIS #81T0, (RO) 
DEC R1 

BGT 2$ 

TST (RO)+ 

DEC R2 

BGT 1$ 

MOV #4 ,R2 

MOV #PSTACK,RO 
TST (RO) 

BGT 5$ 

CLR (RO)+ 

DEC R2 

BGT 4$ 

BR 8$ 

CMP (RO) ,#11 
BHI 6 

ADD #60, (RO)+ 
BR 7$ 

ADD #55.,(RO)+ 
DEC R2 

BGT 5$ 

MOV (SP)+,R2 


MOV (SP), o (SP) 


SEQ 0064 


z1F ZERO, SKIP NEXT INSTRUCTION 
‘MARK THE BIT AS BEING SET 
: ONE LESS ITERATION T TO GO 


BUT _NOT DONE UNTIL = 

NEXT BUFFER LOC 

sONE LESS ITERATION TO-GO 
il OT ZERO, 44 GOING! 


ATION COUNT 
AND GET THE BUFFER ADDRESS AGAIN 
; CONTENT S ZERO? 
;1F NOT, NEXT 
:SET THIS CHARACTER = NULL 
ZONE LESS CHARACTER TO GO 
i1F NOT ip ,KEEP GOING 


RETU 
ALPHA OR NUMERIC CHARACTER? 
3;1F > 11, ALPH 

MAKE NUMERIC ASCII 

AND GO-0 

MAKE HEX. 


ASCII 
ZONE LESS ITERATION TO-GO 
ieee nt a "F NCT ZERO 


R1 
[MOVE STACK OVER INPUT VALUE 
D RETURN 


SEERA EAAEREAEEEEEAEEERAEEEEEEE EERE EEEEREREAEEEEEEEREKREE 


+1= KW11-P 


THERE fs A CLOCK ON SYSTEM. START THE CLOCK. ‘’CLKSTA’’ WILL 
INDICATE THE CLOCK TYPE. 
O= NO CLOCK. 


“T= KWIT=L 
:THIS ROUTINE WILL ALSO SETUP ‘‘TICKMS’* (TIME PER CLOCK TICK IN MILLISECONDS) 
AND "'TICKUS’* (TIME PER CLOCK TICK IN MICROSECONDS) AS PER LINE FREQUENCY. 


JSR PC,ST.CLK 
RN 


START THE CLOCK 


FEAR AEE AEA EE EEE EERE EEEEEEEEEEEEREEEEREEEEEEEEEEEEEEEEREREEE 


ST.CLK: CLR CLKSTA 
CLR HERTZ 
MOV #°P,RO 
TRAP C$CLCK 
MOV RO,R5S 
BCC 1$ 


zASSUME ‘'NO CLOCK" 
SASSUME ‘UNKNOWN’ HERTZ 
21S THERE A P-CLOCK PRESENT ? 


:GO TO 1$ IF NO 


3SET P-CLOCK P-TABLE & START P=CLOCK 


MOV R5,PCLKTB 
MOV (R5)  PKCS 
MOV (RS). *PKB 


KB 
MOV )e, PKC 
“PKC 


——_—- —— - 


SAVE P-CLOCK TABLE ADDRESS 
7GET "CSR* ADDRESS 
:MAKE PKB ADDRESS BY 


; ADDING 
sMAKE PKC ADDRESS BY 
sADDING 4 


ze 


113 015626 
114 
115 
116 
117 
118 
119 
12 


0 


2 St 
w wi uw 
Oo 
ww 
nm 


660 
5662 
5664 


oooocoecKeo Sc Coooooo°oooeo 


AWA NU INRINVAINLNNN 
2 SS 


PUN —SOWNANE WN =O Oba WNC OOnouftwnr— 


15750 


kkk kk kk tk ek kk ek ek ed ed dd dd 
MMNMVIU ES SEER OW 


ed ed ed ceed eed ed ed nd ed 
oa 


de ed td td ed = 
AQOMMWWVY 
—OOONOM 


000000 


000000 
177546 
000100 





000106 


000102 


000300 


0090003 


000010 
000001 
000115 


000300 
016104 


002426 


002426 


1$: 


2$: 
skW11-P 
PCLKTB: 


sKWIT-L 
LCLKTB: 


LKS: 
LKV: 


HERTZ: 
ST.PCLK: 


1$: 
ST.LCLK: 
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PROGRAM UTILITIES 


;SKIP OVER ‘BR LEVEL’ 

:GET ‘VECTOR’ ADDRESS 

sGET "HERTZ* LINE FREQUENCY 

sSET P=CLOCK FLAG 

START P-CLOCK AS A WATCH DOG TIMER 


31S THERE A L=CLOCK PRESENT ? 


:GG TO 2$ IF NO 


SET L=CLOCK P-TABLE, START L=CLOCK 


SAVE L=CLOCK TABLE ADDRESS 
:GET "CSR* ADDRESS 


ADDRESS 
zGET "HERTZ* LINE FREQUENCY 
zL-CLOCK FLAG 
START L=CLOCK AS A WATCH DOG TIMER 


CLOCK TABLE, CSR REG, PKB REG, PKC REC & VEC ADR 


TST 5)+ 

MOV (R5)+,PKV 
MOV (R5)+, HERTZ 
MOV #1,CLKSTA 
JSR PC; ST.PCLK 
RTS PC 

MOV #°L,RO 

TRAP C$CLCK 

MOV RO,RS 

BCC 2$ 

MOV R5,LCLKTB 
MOV (R5)*,LKS 
TST (R5)+ 

MOV (R5)+,LKV 
MOV (R5)+, HERTZ 
MOV #-1,CLKSTA 
JSR PC,ST.LCLK 
RTS PC 

.WORD 0 

.WORD 172540 

“WORD 172542 

“WORD 172544 

“WORD 104,106 
CLOCK 

.WORD 0 

«WORD 177546 

“WORD 100,102 
-WORD 0 

MOV #PR106,-(SP) 
MOV #KWSRV,-(SP) 
MOV PkV,=(SP) 
MOV #3,-(SP 
TRAP C$SVEC 

AOD #10, 

MO’! #1,aPKB 

MOV #115, aPKCS 
RTS PC 

MOV #PR106,-(SP) 
MOV #kWSRV,=(SP) 


zP=-CLK TBL ADR 


sCONTROL & STATUS 
COUNT SET BFR 
; COUNTER 


: VECTOR 


TABLE, CSR REG & VEC ADR 


zL-CLK TBL ADR 
sCONTROL & STATUS 
; VECTOR 


360 HZ. OR 50 HZ. LINE FREQUENCY 
SETUP VECTOR FOR P-CLOCK 


COUNT ONE TICK 

2. ‘INT.EN.'',COUNT DOWN*', 
;“‘LINE FREQ"*, AND ‘'RUN’* 
;RETURN 


SETUP VECTOR FOR L=CLOCK 


“MODE 1 (REPEAT)"*, 


SEQ 0065 


pre ee eC 
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_ PROGRAM UTILITIES 


SEQ 0066 C 


no 


000000 09 09 09 SIN NIN NNN NOAA 


Sooooceoo 
22325424 
AAAAAAO 
2 ee 
WWRN— 


a kk kd a dd ds ot ts 
SSRSaSR 


—SOVWONAOULSWN—OOONO 


PADIS et at sk td td td ot ot sd 
SOoOUOOODOO OO OM 


Mmronr 
oooo 
wr 
ed ad cd ed nd cd ad ed nd cd 
Aan ~ 


Nm 
wn 
_ 
Sx 


Nm 
oS 


SWMOOCONO 


204 


jolelelelelelelelelelalolelojlolojl~) 
2 SS 


RoNonoNonononony 
a I IOOO 


013746 


000207 


005737 


000207 


012746 


162637 
000002 


000207 


015744 
000003 


000010 
000100 


002426 


000101 
000100 


000024 
015750 


000020 
016776 


164410 
004354 
177400 


002404 
002406 


002404 
002406 


177670 


177634 
177640 


000062 


Pp 
MOV LKV,<(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
MOV #100,aLkS ZSTART THE KW11=L 
1$: RTS PC RETURN 


Sai ROUTINE IS USED TO STOP THE SYSTEM CLOCK 


: JSR PC, STOPCK :CALL ROUTINE 

STOPCK: TST CLKSTA :IS THERE A CLOCK AVAILABLE ? 
BEQ 2$ ‘BR IF NO 
BMI 1$ 7BR IF L=CLOCK 
BIC #101, aPKCS ‘STOP THE P=CLOCK 

1$: BIC #100,aLKS 

2$: RTS PC 

;kKW11 CLOCK INTERRUPT SERVICE ROUTINE 

KWSRV: MOV #20.,-(SP) ZASSUME 20.0 MSE 
CMP HERTZ, #50. :18 IT IT 50 HERTZ CINE FREQUENCY ? 
MOV #16.,(SP) ‘Must. BE 60HZ, 16.667 MSEC 

18: 6 SUB (SP)+,WATIME | :SUBTRACT TIME PER TICK IN MILLISECONDS 

" RTI 


SERRA RARER EERE TERETE AEE E EERE ERE A RARER EERE ARARAERRER EERE REE 
iTHIS MODULE IS_USED TO DECODE THE Bel iy OF RPER2 . PRODUCE A MODULE 
;FAULT LIST BASED ON THE CONTENTS OF RPER2. INPUT IS FROM RPER2 (LOW BYTE) 
SOUTPUT IS TO ERRWD1 AND ERRWO2. TABLE LOOKUP IS DONE STARTING AT EC.00. 


FF RARER AERA EEE EER EE EERE EREEEREEEEEEEEEEEEEEEEREEEEEEREEEREEEEE EEE 


CALMOD: MOV R1,-(SP) ZSAVE R1 
MOV R2,-(SP) SSAVE R2 
MOV @RPERS .R2 ‘GET THE CONTENTS OF RPER2 
MOV #EC.00,R1 *GET THE TOP OF THE CALLOUT LIST 
BIC iv7400" R2 


7STRIP THE HIGH 4 INFORMATION 
BNE 1$ :1F NOT ZERO, IT°S VALID 

ERRWD1 SET THE CALLOUT LIST TO 0 

[FOR BOTH (THIS ERROR CODE IS BAD) 


STOP THE L-CLOCK | 


CLR ERRWD2 
BR 2s SNOW TAKE THE URN 
1$: CMP at demi MOVE THROUGH THE LIST 
DEC R2 ONE LESS ENTRY TO GO 
BGT 1$ 300 UNTIL R2 = 0 
MOV (R1)+,ERRWD1 LOAD MODULE CALLOUT FOR THIS CODE 
MOV (R1) ,ERRWD2 sFOR BOTH MASKS 
2$: MOV (SP)+,R2 ;RES one E R2 
MOV (SP)+,R1 RESTORE R1 
RTS PC AND RETURN TO CALLER 


Tei t iii titi ii iti i titi titi iiiitiiiiitiiiiviitiiiitiiiitiititiiiiiiiti titty, 
‘THIS MODULE 'S PART OF THE I/O SUPPORT. IT is ‘ee TO DUMP THE RP-07 
;REGISTERS AS PART OF AN ERROR MESSAGE. INPUT TO THIS MODULE IS FROM 

sREG = REG+52. OUTPUT IS TO THE USED SPECIFIED PRINTING DEVICE. 


(ee 


6446 
2746 000010 MOV #10,~(SP) 
SP,RO 


2706 000022 ADD #22,SP 
5737 002504 TST RHTYPE z1S IT RH70 CONTROLLER ? 
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| PROGRAM UTILITIES 
215 FF RARER AREER EEE EEE EEE EEE EERE EEE EEE EERE EERE EERE EEE 
216 
| 217 016212 DMPREG: :PRINT "DRIVE RPCS1 RPWC  RPBA RPDA_ RPCS2 RPDS’ 
218 016212 012746 010337 MOV #FRMT4O,=(SP) 
016216 012746 000001 MOV #1,-(SP) 
016222 010600 MOV SP,RO 
016224 104415 TRAP  C$PNTX 
016226 062706 000004 ADD #4 
219 016232 013746 002610 MOV REG+12,=(SP) 
016236 013746 002606 MOV REG+10,=(SP) 
016242 013746 002604 MOV REG+6,-(SP) 
016246 013746 002602 MOV REG+4,=(SP) 
016252 013746 002600 MOV REG+2,-(SP) 
016256 013746 002576 MOV REG, -(SP) 
016262 013746 002506 MOV DRVNO,=(SP) 
016266 012746 010430 MOV #FRMT41,=(SP) 
016272 012746 000010 MOV ~ 
016276 010600 MOV SP,RO 
016300 104415 TRAP —s« C$PNTX 
016302 062706 000022 ADD #22,SP 
220 ;PRINT "RPER1 RPAS RPLA RPDB RPMR1 RPDT RPSN’ 
221 016306 012746 010510 MOV #FRMTSO,=(SP) 
016312 012746 000001 MOV #1,=(SP) 
016316 010600 MOV SP,RO 
016320 104415 TRAP — C$PNTX 
016322 062706 000004 ADD #4,SP 
222 016326 013746 002626 MOV REG+30,-(SP) 
016332 013746 002624 MOV REG+26,=(SP) 
016336 013745 002622 MOV REG+24,=(SP) 
016342 013746 002620 MOV REG+22,=(SP) 
016346 013746 002616 MOV REG+20,-(SP) 
016352 013746 002614 MOV REG+16,-(SP) 
016356 013746 002612 MOV REG+14.=(SP) 
016362 012746 010601 MOV #FRMTS1,=(SP) 
016366 012746 000910 MOV #10,-(SP) 
016372 010600 MOV SP,RO 
016374 104415 TRAP  CSPNTX 
016376 062706 000022 ADD #22,SP 
223 :PRINT "RPOF RPDC PCC RPER2 RPER3 RPEC1 RPEC2" 
224 016402 012746 010661 MOV #FRMT60,-(SP) 
016406 012746 000001 MOV #1,-(SP) 
016412 010600 MOV ‘ 
016414 104415 TRAP  C$PNTX 
016416 062706 000004 ADD 
225 016422 013746 002644 MOV REG+46,=(SP) 
016426 013746 002642 MOV REG+44,=(SP) 
016432 013746 002640 MOV REG+42,=(SP) 
016436 013746 002636 MOV REG+40,~(SP) 
016442 13746 002634 MOV REG+36,=(SP) 
01 
01 
01 
01 
01 
01 
01 


oa 
5 
Oo 
MN 
Soo —-Ooooo°oo 
ono 
. ww 
P > 
_ 
vw 
“~ 
zz 
> 
v 
oo 
Lad 
v 
= 
_ 
=< 


ee 


PROGRAM UTILITIES 

| 227 016502 001424 

| 229 016504 012746 
01651 


0165 
231 016554 000207 


011035 
000001 


000004 


000003 


000010 


1$: 


BEQ 
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1$ 


#FRMT70,=(SP) 
#1,-(SP) 


SP,R 

CSPNTX 

#4,SP 
REG+52,=(SP) 
REG+50,=(SP) 
#FRMT71,-(SP) 
#3,-(SP) 
SP‘RO 

C$PNTX 

PC 


7BR IF NO 
sPRINT “RPBAE RPCS3' 


SEQ 0068 


| E 6 
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‘PROGRAM UTILITIES 


1 

2 POP RRSARBAAAALALALZALLALLALALELALALALLS ELE RET ER EEE REE EER EERE ERE REE RES TCC SPSS PT ESS 

3 ‘THIS MODULE IS USED TO PRINT THE MODULE FAULT LIST TO THE USER. IT 

4 [1S PART OF THE 1/0 SUPPORT USED WHEN AN ERROR MESSAGE IS PRODUCED. 

5 ‘INPUT IS SET UP BY ‘DECODE’ SO THAT Re IS THE LIST POINTER. OUTPUT !5 

5 :T0 THE USER SPECIFIED PRINTING DEVICE 

7 PITITITITTITIITTISTITIITTILiTiLi TIT iTiititti titi tii ti titi iti tt itt) Reeaaeeesenese 

8 

9 016556 FAULTS: 
016556 012746 007273 MOV #FLSTOO,=(SP) 
016562 012746 000001 MOV #1,-(SP) 
016566 010600 MOV SP,RO 
016570 104414 TRAP C$PRTB 
016572 062706 000004 ADD #4,SP 

10 016576 010146 MOV R1.=(SP) ::PUSH R1 ON STACK 

11 916600 012701 000015 MOV #13.,R1 3GET THE ITERATION COUNT 

12 016604 1$: 
016604 012246 MOV (R2)+,=(SP) 
016606 012746 007312 MOV #FLSTON. so CSP) 
016612 012746 000002 MOV #2,-(SP 
016616 010600 MO P.RO 
016620 104414 TRAP  C$PNTB 
C16622 062706 000006 ADD #6,SP 

13 016626 005712 TST (Re) :MORE DATA? 

14 016630 001402 BEQ 2$ :IF ZERO, 

15 016632 005301 DEC R1 TONE LESS ITERATION TO-GO 

16 016634 003363 BGT 1$ :DO UNTIL = 0, OR (R2) = 0 

17 016636 2$: CRLF 

18 016636 012746 006420 MOV #CRLF ,-(SP) 
016642 012746 000007 MOV ies (§P) 
016646 010600 MOV P-RO 
016650 104414 TRAP eSPNTB 
016652 062706 000004 ADD #4,SP 
016656 012601 MOV (SP) +,R1 ::POP STACK INTO R1 
016660 000207 RTS PC ‘AND RETURN TO CALLER 


= 
| 
| 
| 
| 
| 
| 
i 
| 


Tmo 


——_— SC —-—  —-_ XSOov>rovowon 


(eS —— 


| F 6 
‘CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 22 SEQ 0070 
‘PROGRAM UTILITIES 


| 
} PITTI TIT IT Titi i Titi iii t iti iti iti titi iiisiiiiiitiitiiiitiiiititiititiiy, 
3 iTuls MODULE DOES THE pie OPERATION IN THE EVENT THAT 
4 A GIVEN DRIVE IS DUAL PORTED. 
5 SCAL L_IS JSR FC, SEIZE 
6 oe ERE ARE NO SIDE EFFECTS 
4 Iti ti tiiititittit iit ite iii iii iiiiiiiiiiiiitiiiiiiii iii iii rir iii 
| 9 016662 052777 000040 163632 SEIZE: BIS #CLR,@RPCS2 s START OUT WITH A op hes CONTROLLER 
10 016670 013777 002506 163624 MOV DRVNO, aRPCS2 RELOAD THE DRIVE N 
11 016676 105777 163622 TSTB @RPDS :1S THIS DRIVE ieee BY ANOTHER PORT? 
12 016702 100424 BMI 3$ =NO, JUST TAKE RETU 
13 016704 005077 163614 CLR @RPDS ; ISSUE A DRIVE REQUEST 
14 016710 010246 MOV R2,-(SP) sSAVE R2 
15 016712 012702 000012 MOV #10. ,R2 ;LOAD R2 WITH AN OVERALL ITERATION COUNT 
16 016716 105777 163602 1$: TSTB aRPDS [NOW WAIT FOR THE OTHER PORT TO RELEASE 
17 016722 100410 BMI 2$ [NOT YET IF RPDS:DRY = 0 
18 016724 004737 017000 JSR PC,WAIT 
19 016730 005302 DEC R2 sAND REDUCE THE ITERATION COUNT 
20 016732 001371 BNE 1$ ;LOOK AGAIN FOR DRIVE PRESENT 
21 016734 104455 TRAP CSERDF 
016736 000001 - WORD 
016740 013266 oW EM27 
016742 000000 . WORD 
22 016744 112777 000377 163556 2$: MOVB #377 ,ARPAS CLEAR ANY UNWANTED ATTENTION BITS 
23 016752 012602 MOV (SP)+,R2 sRESTORE R2 
$¢ 016754 000207 3$: RTS PC zAND TAKE RETURN 
26 PCT i titi tii iii titi titi iitiiiitiiiiiiiiiiiitiiiiiiiiiitiiitiiiiiiititiiiiit) 
44 Sry MODULE IS USED TO WAIT FOR THE SPECIFIED TIME IN MILLISECONDS 
29 ; MOV #NUMBER,-(SP) ;NUMBER IN MILLISECONDS TO WAIT 
M4 : JSR PC ,WAITMS sCALL WAIT ROUTINE 
3 SNOTE: THE SHORTEST WAIT CANNOT BE LESS THAN 16.66MS 
34 PITITITIITIIITITIT ITT TTL LTT LITT iLL LLL LLL LL LLL LLL LLL ELL 
36 016756 016637 000002 016776 WAITMS: MOV 2(SP) ,WATIME GET WAIT TIME IN aes 
37 016764 005737 016776 1$: TST WATIME SDONE WITH WAIT YET 
38 016770 003375 BGT 1$ BR IF NO 
39 016772 012616 MOV (SP)+, (SP) SADJUST RETURN Ta ON STACK 
re 016774 000207 RTS PC :NOW RETURN TO MA 
ri} 016776 000000 WATIME: .WORD 0 sWAIT TIME GOES HERE 
44 PITT ITI t titi iii titi iti iti titi iti iii iti titi iiiiiiitii it iter ier ir erer iti iii ts 
45 STHIS MODULE IS USED TO STALL IN LOOPS WHICH MUST WAIT FOR THE 
46 ;RPO7 MICROPROCESSORS. THE WAIT IS A diy TIME pERICy AND 
47 SCANNOT BE CHANGED DYNAMICALLY. THERE ARE NO SIDE F. FECTS. 
48 PET TTTITTT TIT T TTT TETT TTT TT TIT LILT LITTER LILi i TTL TLL LLL ELLE 
4 
50 017000 WAIT: 
017000 012727 000372 MOV #250. ,(PC)+ 
017004 000000 


WOR 
017006 013727 002116 MOV LSDLY,(PC)+ 
017012 000000 -WORD 0 


-_---———-—- 
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PROGRAM UTILITIES 


~~ 
oooo 


PUPS SISIVIVIVT 
—"OVOONOUESWN 


aon 


So 


Pwr 
AONSEAO 


Co 00 00 Go Oo Go Co 


wowoonoonoo0v0n9 
DRI DO OO MRA RU oO O00 Ona eN 


005367 


005037 


000207 


177772 
177756 


002466 
040000 


002524 


040000 
160000 
002512 


177777 


163340 
000002 
002504 
004000 


000004 
002000 


000002 
010000 


163270 


163460 
002456 


002454 
163404 
002456 


002466 


163366 


163352 


163336 


002452 


SEQ 0071 
DEC ~6(PC) 
BNE =“ 
DEC =22(PC) 
BNE -720 
RTS PC NOW RETURN TO MAIN 


oot anal cave daar Uf Gk daaak Geteom aban teat dete 
STHIS MODULE DOES SOME OF THE ERROR CHECKING WHICH MUST OCCUR 
SRESULT OF ANY DATA TRANSFER. THE MODULE CHECKS SC, 
3R IF ERRORS ARE DETECTED, 


ae TO -1, OTHERWISE “ERSTAT’’ = 0. THERE ARE NO OTHER SIDE EFFECTS. 
TTTTTETTTITETTETTTTTITT TET TI TTT TT TTT TET TET ETT ETT T LETTE ETE 
ERRCK: CLR ERSTAT START OUT ey ERRORS! 
BIT #ERR ,ARPDS ; COMPOSITE ERR 
BEQ 1$ T IF 0! 
MOV RPDS. TESTRG IGET THE FAILING one 
MOV @RPDS ,RCVED ZAND THE FAILING DAT 
MOV RCVED,EXPTED OW FORM THE EXPECTED DATA 
aS gene. ,EXPTED :BY CLEARING THE CORRECT BIT 
1$: BIT #SC!TRE:MCPE, aRPcst:; 61D we GET ANY ERRORS? 
BEQ 3$ F ZERO, NO! 
MOV RPCS1, TESTRG :GET THE FAILING REGISTER 
MOV arPcsi, he ; AND THE FAILING DATA 
MOV RCVED EXP OW FORM THE EXPECTED DATA 
BIC ASCITREIMCPE, EXPTED; BY aca onaen Hi — BITS! 
$3: MOV #-1,ERSTA : SHOW THE ERROR STA 
$: RTS PC RETURN TO MAIN 


FF EERE EEE EAEE RAE EEE AERA EAE AEE AREEEREEEEAEEEREEEAEEEEEEEEEEREREERE ES 
:THIS MODULE DOES THE DATA LOGGING IN THE EVENT OF A DATA BUFFER 

:MISCOMPA E ADDRESS "RP; DLINTO “TESTRG™. TH 

{CORRECTED CONTENTS OF URPBA’ ARE USED TO POINT TO THE EXPECTED DATA, ii “EXPTED", 
AND THE CONTENTS OF "'RPDB'’ ARE LOADED INTO THE RECEIVED DATA ‘'RCVED" 

;THERE ARE NO OTHER SIDE EFFECTS. 


PITITI TTI TIT TIT IITITITTTITTITITITITI TTT iT Titi titi itiii tii titi hit 


LOCATE: MOV R2,-(SP) AVE R2 
MOV @RPBA,R2 ‘ery THE ADDRESS OF THE EXPECTED DATA 
SUB #2,R2 SAND CORRECT IT 
TST RHTYPE tWHICH CONTROLLER?? 
BEQ 3$ IT'S AN N RHI 0: 
BIT WBIT11,aRPCS3  :IS IT AN EVEN WORD TRANSFER? 
BEQ 1$ :NO, IT IS NOT, IF 0! 
SUB #4 ,R2 * CORREC 
1$: BIT #BIT10,aRPCS3 :IS IT A DOUBLE WORD TRANSFER? 
BEQ 2$ SIF 7EPO, N 
SUB #2,R2 [CORRECT FOR : DOUBLE WORD TRANSFER 
2$: BIT #BiT12,aRPCS3 31S IT AN ODD WORD TRANSFER? 
BEQ [IF ZERO, 
SUB #2,R2 *CORRECT FOR ODD WORD 
3$: MOV (RO) ,EXPTED 3GET THE ACTUAL DATA 
MOV @RPDB, RCVED AND FAILING DATA 
MOV (SP)+*,R2 “NOW RESTORE R2 
RTS pr SAND RETURN TO MAIN 


-- --- -— ——— —= ee — ——— 


CTRIMAD RPO7 FE/H 

'PROGRAM UTILITIES 

| 104 

105 

106 

107 

108 

109 

| 110 

| 491 

112 017252 040104 

113 017254 005201 

| 114 017256 050104 
115 017260 004737 015352 

| 116 017264 000207 

| 

| 
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PITT ITI iiriiitiiiitititiiiiviitititiiritiiririiiiriiiis gs) 
iTHIS MODULE IS os FOR a ERROR LOG DUMP. IT IS FED BY R1, WHICH 
SINITIALLY IS N = 1 FOR THE ROUTINE TO BE SELECTED. R4 IS used FOR 
THE DUMP ROUTINE sn R1, AFTER BEING INCREMENTED IS USED AS THE 
LOW BYTE ARGUMENT IN RG.” THIS MODULE IS CALLED BY THE TEST WHICH 
DUMPS THE RPO7 ERROR LOG. 


fF FERRARA RARE AAEAAAEEE EAE EERE EEEERERAERERERAREREEREREKEAAREEEKEEEEHARRE KEE eR Eee 


NEXLOC: BIC R1,R4 3 TAKE an PREVIOUS ARGUMENT FROM R4 
INC R1 :GET THE NEXT RAM sa 
BIS R1,R4 = LOAD THE ARGUMENT INT 
JSR PC ,DIAGLD 4 IS USED TO “re THE DIAGNOSTIC ROUT INE 


RTS PC ‘NOW TAKE THE RETURN 


—— 


6 
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PROGRAM UTILITIES 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
} 11 
| 12 
13 
| 4s 
16 017266 123737 002415 
17 017274 103003 
18 017276 105237 002415 
19 017302 000410 
| 20 017304 023737 002416 
21 017312 101002 
22 017314 005237 002416 
23 017320 105037 002415 
$¢ 017324 000207 
26 
27 
28 
29 
30 
31 
32 
33 017326 010046 
34 017330 010146 
35 017332 012700 002512 
36 017336 012701 002576 
37 017342 013021 
38 017344 022700 002562 
39 017350 161374 
40 017352 005737 002504 
41 017356 001402 
42 017360 013021 
43 017362 013021 
44 017 012601 


364 
45 017366 012600 
48 017370 000207 


48 


MAA ATU SS 
NOUS WR OO 


002372 


002376 


gg ttenenancorereacecererereneceeeansentettensecenteneeseeentenaeeeeeteeeseeets 
HIS MODULE CONTROLS SPIRAL READS OR WRITES. iT INCREMENTS be DESIRED 

STRACK ADDRESS UNTIL IT IS READY TO OVERFLOW INTO AN ILLEGAL ADDRESS. 

[WHEN THIS IS READY TO HAPPEN, THE DESIRED TRACK IS SET TO ZERO, AND THE 

SDESIRED CYLINDER ADDRESS IS INCREMENTED. THE TERMINAL STATE IS REACHED 

WH + Ha 3 ri teh IS rot TO OVERFLOW 


; RA ST USER 
CYLINDER ADDRESS Seon HE DRIVE. LASCYL DOES NOT INCLUDE ANY DIAGNOSTIC 
A! CYLINDER ADDRESS 


s Seeabhansneennesaneetoeisennnennennesanenneniaenmennanianiionbniiuelinainiiel 


SPIRAL: CMPB DESTRK+1,LASTRK ; TRACK COUNT AT MAX? 
BHIS IF HIGHER OR SAME, YES! 


INCB DESTRK+1 ZNEXT TRACK PLEASE... 
BR AND RETURN 
1$: CMP DESCYL,LASCYL LAST Spe ADDRESS? 
BHI 2$ 7YES, WE ARE ABOUT TO OVERFLOW! ! 
INC DESCYL 3NEXT CYLINDER ADDRESS PLEASE.... 
2$: CLRB DESTRK+1 RESET THE TRACK ADDRESS TO 0 
3$: RTS PC ?NAD TAKE THE RETURN 


tn greet en ane ge grep pinta tanmtnle bint 
sTHIS MODULE CREATES AN IMAGE OF THE RP REGISTERS. 

ZIT IS USED TO SAVE THE REGISTERS FOR AN ban DUMP AFTER 

SAN ERROR IS DETECTED. CALL IS JSR PC,SAVR 

dew OUTPUT OF THIS MODULE LOADS A BUFFER CAnLED "REG" 


FERRARA EAE AEE AAA AEA EEA EAREEAAEEAEEE ERE EAEEREEEREREEAEEEEREKEEERE EE 


SAVRPR: MOV RO,-(SP) 
MOV 


R1,=(SP) 
MOV #RPCS1,RO zAND_THE TRANSFER ADDRESSES 
MOV #REG,R 3OF THE SOURCE AND REG BUFFERS 
1$: MOV a(RO)+,(R1)+ iNOW LOG TH * DATA 
CMP #RPBAE ,RO ARE WE AT THE LIMIT? 
BHI 1$ D0 UNTIL ALL RHXX REGISTERS ARE LOGGED 
geo as 


MOV a(RO)+,(R1)+ GET THE CONTENTS OF RPBAE 
MOV a(RO)+,(R1)+ :GET THE CONTENTS OF RPCS3 


2$: MOV bat og R1 
MOV (SP)+,RO 
RTS PC RETURN TO MAIN FOR ERROR REPORT 


SERA EAE EEEEAERE EERE EEEAEEEEEEEEE EERE EREEREREREREEEEREEEEAAEEERE REESE 


THE FOLLOWING THREE MODULES ane USED TO — UP pweet tee VS RECEIVED wate 
FOR TWO TYPES OF CASES. THE FIRST IS WHEN THE PROGRAM TRIES TO SET A BIT 


; B a 
sBOTH “BISEXP*’ AND ‘‘BICEXP’* CALL “‘REGSET’* TO PERFORM SOME PRELIMINARY 
sPHESTRGN erie OPES ee BISEXP** AND *BICEXP"’ AFFECT THE FOLLOWING: 


>o 


——— ee ee ee ee SS - —_ 


“CZRIMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE he! SEQ 0074 
| PROGRAR UTILITIES 


| a 017372 £04599 00000 BISEXP: :MOV a(SP),R2 :GET THE POINTER TO THE FAILING REG. 
59 017376 01745 JSR ac REGSET G60 LOAD RESU LTS 
60 o1se08 0627 1 00000 ADD #2. (SP) :MOVE THE POINTER TO GET THE BIT MASK 
61 017406 057637 000000 002454 BIS a( SP) ,EXPTED iSET EXPECTED BIT WHICH FAILED 
| 62 017414 062716 000002 ADD #2, (SP) MOVE THE POINTER FOR A RETURN 
| 65 017420 000207 RTS PC {RETURN 
65 017422 917602 000000 BICEXP: :MOV a(sP),R2 :GET THE POINTER TO THE FAILING REG. 
66 017426 004737 017452 JSR a8 REGSET :GO LOAD RESULTS 
67 017432 062716 000002 ADD #2. (SP) [MOVE THE POINTER TO GET THE MASK 
68 017436 047637 000000 002454 BIC a(SP),EXPTED CLEAR EXPECTED BIT WHICH FAILED 
69 017444 062716 000002 ADD #2, (SP) [MOVE THE POINTER TO TAKE A RETURN 
20 017450 000207 RTS PC SNOW TAKE THE RETURN 
72 017452 011237 002456 REGSET: MOV (R2), TESTRG :GET THE FAILING REGISTER 
73 017456 011202 MOV (R2) .R2 'GET THE FAILING REGISTER 
74 017460 011237 002452 MOV (R2) -RCVED [NOW GET ITS CONTENTS 
75 017464 013737 002452 002454 MOV RCVED,EXPTED | :AND FORM EXPECTED DATA 
26 017472 000207 RTS PC RETURN 
78 FERRARA EEA EEE AEE EA EEE EEE EEAEREREEREAEREEEEREREEEEEEREEEEAEEAEEEKKEREAEEEE 
79 <THIS MODULE ISSUES A CONTROLLER CLEAR AND CHECKS THE REGISTER POINTED 
80 TO BY THE STACK WHEN THE MODULE WAS ORIGINALLY CALLED. THE REGISTER 
81 31S CHECKED AGAINST LO Sk**. N MSK = 0 FOR TH 
82 WHICH SHOULD HAVE CLEARED AFTER A CONTR CLEAR. IF THE BITS UNDER TEST 
83 [DiD NOT CLEAR, AN ERROR MESSAGE IS DISPATCHED BY THIS MODULE, REPORTI 
84 [THE FAILING REGISTER, FAILING DATA, AND EXPECTED DATA. THE PETU 
85 ADDRESS IS MOVED OVER THE REGISTER UNDER TEST, AND CONTROLL, IS AGAI 
86 :PASSED, TO THE CALLING MODULE. THIS MODULE AFFECTS: ‘‘TESTRG', “ESPTED", 
88 : 2 REEAAEEAAEAAAEAAREAEATEEAATETEAEAAEAAAEAAAEEEAAAEEAAEAEKEAKEEARAREREEEEEEEEEEEEEEE 
89 
90 017474 005137 002450 RESET: COM zINVERT THE BIT MASK, BITS TO TEST=1 
91 017500 010246 MOV RD. -(SP) "SAVE R 
92 017502 017602 000002 MOV a2(SP),R2 FORM ADDRESS OF REGISTER UNDER TEST 
93 017506 011202 MOV (R2),R :GOT IT N 
94 017510 052777 000040 163004 BIS #CLR, ARPCS2 ?SET RP cso. ture 1 
95 017516 033712 002450 BIT MSK, (R2) ‘LOOK FOR BIT(S) UNTER TEST TO CLEAR 
96 017522 001415 BEQ 1$ tIF OK, SKIP ERROR DISPATCH 
97 017524 010237 002456 MOV R2, TESTRG [LOAD THE FAILING ADDRESS 
98 017530 011237 002454 MOV (Re), EXPTED ZAN ND GET THE FAILING DATA 
99 017534 011237 002452 MOV (R2) .RCVED SAVE IT 
109 017540 043737 002450 002454 BIC MSK,EXPTED NOU FORM THE EXPECTED DATA 
101 017546 104456 TRAP  CSERHRD 
017550 000005 .WORD 5 
017552 012523 “WORD EM15 
017554 014172 “WORD ERRO 
102 017556 005137 002450 1$: COM MSK :BITS TO TEST=0 
103 017562 012602 MOV (SP)+,R2 SRESTORE R2 
104 017564 62716 000002 ADD #2, (SP) ‘MOVE RETURN ADDRESS OVER DATA FIELD 
105 017570 000207 RTS PC RETURN 


————— i i ee - 
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PROGRAM UTILITIES 


SREAEAAEAAAAEAAAAAEEEAEEAEKEAEAEAAAAREREREAERAAAEAAEAAAEAAEEAAERAAEAHEAEEAEEHEEE 


iTHIS re WITH lt SET-UP tare a A THE REGISTER-UNDER 


} 
| 
| 1 
4 :TES ITS UNDER TEST DO NOT CLEAR AS EXPECTED, AN 
* ERROR MESSAGE IS DISPATCHED IN THIS ONTROL IS DETERMI! ED BY: 
& 3"1LOCK''; WHICH RMINES IF THE DEVICE MUST BE POLLE , IE “IR O 
? MSK"’ WHICH CONTAINS THE BI TS=UND - THE 
8 :MODULE IS CALLED, ‘’SNK'’ SHOULD EQUAL THE ADDRESS OF THE REGISTER UNDER TEST. 
3  RevEDe UTPUT OF THIS MODULE IS IN THREE VARIABLES: "'TESTRG’’, "EXPTED'', AND 
11 : TITICTITTITTITITITITTIITITTT ITIL TiT Ti Lii LLL LiL LiL LEE LE LE EEE Ei 
12 
13 017572 005737 002460 LDZERO: TST ILOCK :POLLED MODE? 
14 017576 001402 BEQ 1$ :NOT IF ZERO 
15 017600 004737 017672 JSR PC, IRLOCK ‘POLL AND WAIT FOR IR TO SET 
16 017604 005077 162630 1$: CLR aSNK ‘WRITE O'S 0 THE REGISTER UNDER TEST 
17 017610 005737 002460 TST ILOCK :POLLED MODE? 
18 017614 001402 BEQ 2$ :NOT IF ZERO 
19 017616 004737 017706 JSR PC ,ORLOCK :0K, POLL FOR OR TO SET 
20 017622 017737 162612 002452 2$: MOV @SNK ,RCVED [GET THE TEST RESULTS 
21 017630 043737 002450 002452 BIC MSK,RCVED :STRIP OUT THE UNWANTED BITS 
22 017636 013737 002450 002454 MOV MSK ,EXPTED :GET THE BIT MASK 
23 017644 005137 002454 COM EXPTED SBITS-TO-TEST = 1 
24 017650 033737 002454 002452 BIT EXPTED,RCVED | :NOW DO THE DATA COMPARISON 
25 017656 001404 BEQ 4$ :BITS TO TEST = 0, Ok! 
26 017660 104456 TRAP § CSERHRD 
017662 000006 .WORD 6 
017664 012523 .WORD €&M15 
017666 014172 -WORD ERRO 
7 017670 000207 4$: RTS PC :RETURN TO MAIN 
29 tuIs MODULE POLLS “'IR’ TO EQUAL A OME AT SOME TIME. THE ACTUAL TESTING 
30 THIS MODULE POLLS "‘IR"' TO EQUAL A ONE AT SOME TIME. THE ACTUAL TESTING 
31 1OF IR'' AGAINST A WATCHDOG TIMER IS NOT DONE HERE, BUT A SUPERVISOR CALL 
32 [1S ISSUED IN CASE ‘‘IR' NEVER SETS, AND THE DIAGNOSTIC HANGS. THE DIAGNOSTIC 
33 :WILL RESPOND TO A CONTROL C WHILE IN THIS MODULE. 
3 SEAR ER AREER EEA EE EEE EEE EAE EEE AEEEEEREEEEEEEEEAEEEREEEAEERE EERE ERE 
36 017672 IRLOCK: 
017672 104422 TRAP  C$BRK 
37 017674 032777 000100 162620 BIT #IR,aRPCS2 :POLL IR_IN RPCS2 
38 017702 001773 BEQ IRLOCK SAND WAIT FOR I 
33 017704 000207 RTS PC ‘NOW RETURN TO CALLING SUBROUTINE 
41 SERRE RARER EE EEE EEE EERE EEREREEEEEEEEEEEEEEEEEEEEEEEREEEEEEEREREE EEE 
42 :THIS MODULE POLLS "‘OR'’ AND WAITS FOR IT TO SET. THE ACTUAL TESTING 
43 [OF "'OR' AGAINST A WATCHDOG TIMER IS NOT DONE HERE, BUT A SUPERVISOR CALL 
44 ‘1S ISSUED IN CASE “OR NEVER SETS, AND THE DIAGNOSTIC HANGS. THE DIAGNOSTIC 
45 WILL RESPOND TO A CONTROL C WHILE IN THIS MODULE. 
48 FREER AREER AEE EEE EEE AEA ERA AEEEERAEEAAAERAEEERAEREERAEREEEREKEE EERE 
4 
48 017706 ORLOCK: 
017706 104422 TRAP = C$BRK 
49 017710 032777 000200 162604 BIT #OR, ARPCS2 :POLL OR IN RPCS2 


50 017716 001773 BEQ ORLOCK SAND WAIT FOR IT 
51 017720 000207 RTS PC NOW RETURN TO CALLING SUBROUT INE 





a re ee —— 
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|PROGRAM UTILITIES 
| 
3 REESE REREAEAEAAEAEAAAAEEEEEEAAERAAAAAAAERAAAERAEAAAEREAAEARAAERAEAERAERAAEEEEEE 
‘THIS MODULE, ONCE THE DRIVE HAS BEEN SEIZED, DOES A PRELOAD OF THE DRI VE. 
4 A PRELOAD I$ AN OPERATION WHEREIN THE DRIVE, Is SET UP THROUGH USE OF A READ 
5 zIN PRESET COMMAND, AND SETTING FORMAT 16 = THERE ARE NO SIDE EFFECTS. 
6 oA saat TM bib Renn Mh BD TB, BRD sb, Ree 
? 
8 017722 004737 016662 PRELOD: JSR PC, SEIZE :GET THE DRIVE'S ATTENTION 
9 017726 612777 000021 162556 MOV #RIP,ARPCS1 + ISSUE A READ IN PRESET COMMAND 
10 017734 052777 010000 162602 BIS #FMT@RPOF 316 BITS/WORD 
1 017742 000207 RTS PC SRETU 
13 SERRE EEE EEE EERE EEE EEE AREA EEAEAEREREEEEEREREEEEREEEEERAEARAEEEEEAAKEEEE EE 
14 ‘THIS MODULE DOES THE PARAMETER SETUP FOR ‘‘FLOAT'’, ‘‘LDZERO’’ AND ‘‘CONSET'’. 
15 [IT GETS ITS INPUT FROM A TABLE POINTED TO BY TH H 
16 [MODULE IS INITIALLY CALLED. THIS TABLE CONTAINS THE DATA STRUCTURE 
17 {USED BY SOME TESTS. CONTAINED WITHIN THE DATA STRUCTURES ARE 
18 [THE FOLLOWING: 1) THE REGISTER UNDER TEST, 2) THE BITS UNDER TEST, 3) 
19 sTHE DATA PATTERNS TO USE, 4) THE NUMBER a PATTERNS TO U 
20 ‘THE OUTPUT OF THIS MODULE IS IN: 'MSK'': WHICH CONTAINS THE COMPLIMENTED 
21 sFORM OF THE BITS UNDER TEST, ‘‘PATCNT’’ WHICH CONTAINS THE NUMBER OF PATTERNS 
22 :TO USE, "MASK'* WHICH CONTAINS THE NUMBER OF BITS TO TEST, ‘SRC’: WHICH 
23 : CONTAINS THE ADDRESS OF THE DATA PATTERN T O USE, ‘*SNK'': WHICH CONTAINS 
24 STHE ADDRESS OF THE REGISTER TO TEST, "'SCR MP WHICH IS LOADED FOR A 
25 sPOSSIBLE ERROR CONDITION, ‘‘CSTORE’’ WHICH CONTAINS THE CARRY BIT a THE 
26 :LAST OPERATION (INITIALLY SET TO 0, INDICATING THE FIRST OPERATION 
44 a bakannhemaanenastaennmnn eiantammeebbmbesienmuiatanseaieadeainial 
29 017744 010246 SETUP: MOV R2,-(SP) ZSAVE R2 
30 017746 005037 002432 CLR CSTORE SCLEAN CARRY STORE 
31 017752 017602 000002 MOV @2(SP) ,R2 ‘GET TABLE ADDRESS 
32 017756 012237 002434 MOV tao e. PATCNT | :GET THE # OF PATTERNS TO RUN 
33 017762 013237 002440 MOV a(R2)+, SNK SADDRESS: REGISTER TO TES 
34 017766 013737 002440 002456 MOV SNK, TESTRG SADDRESS = REGISTER UNDER TEST 
35 017774 012237 002446 MOV (RaS+ MASK ‘BITS TO TEST 
36 020000 011237 002442 MOV (R2),SRC :TEST PATTERN 
37 020004 017737 162432 002444 MOV aSRC.SRCTMP ‘BUFFER TO DIDDLE THE BITS 
38 020012 013737 002446 002450 MOV MASK,MSK :GET THE BITS TO STRIP O 
39 020020 005137 002450 COM MSK :DON'T CARE BITS = 1 
40 020024 012602 MOV (SP)+,R2 TOR 
41 020026 062716 000002 ADD #2,(SP) <MODIFY RETURN OVER DATA FIELD 
4@ 020032 000207 RTS PC RETURN 
44 FERRARA AERA EEE EE EEREEEEEEREEREEREEAEEEEEEEEEREEEEEEREEEREEEEE EEE 
45 “THIS MODULE GENERATES A BIT WHICH IS FLOATED, THROUGH A SELECTED REGISTER 
46 SUNDER TEST. IT IS SETUP THROUGH THE MODULE ‘‘SETU IF ERRORS ARE DETECTED, 
47 t1T WILL DISPATCH AN APPROPRIATE ERROR, MESSAGE. THIS MODULE EFFECTS THE 
48 :FOLLOWING VARIABLES: ‘MASK’, 'CSTORE’, 'SRCTMP’, "RCVED', “EXPTED'’. 
$3 TTS TTT TTT ET TT TTI TIT T ELIT TTT TETLTT LTTE LLL TTT ELLE 
51 020034 013746 002444 FLOAT: MOV SRCIMP,-(SP) | ;PUT PATTERN ON STACK 
2 020040 063716 002432 ADD CSTORE, (SP) [ADD CARRY FROM LAST ROTATE 
53 020044 043716 002450 BIC MSK, (SP) ‘CLEAR OUT UNWANTED BITS 
54 020050 011637 002454 MOV (SPS ,EXPTED [GET THE EXPECTED DATA 
55 020054 005737 002460 TST ILOCK :SHOULD WE ppot LL_IR/OR?? 
56 020060 001402 BEQ 1$ ‘NO, JUST DO THE LOAD FUNCTION 
57 020062 004737 017672 JSR PC, IRLOCK *GO-AHEAD OD POLL FOR IR = 1 


a ce rs nn ee a no - -- 
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PROGRAM UTILITIES a] 
02 011677 162346 1$: MOV (SP) ,@SNK :WRITE DATA TO REG. UNDER TEST 
59 020072 005737 002460 TST ILOCK ‘SHOULD WE POLL = 1? 
60 020076 001402 BEQ 2$ :NO, JUST GET RESULTS” 
61 020100 004737 017706 JSR PC ,ORLOCK 0K, POL L. FOR OR = 1 
62 020104 017746 162330 2$: MOV aSNK,<(SP) GET THE RESULTS 
63 020110 043716 002450 BIC MSK, (SP) {STRIP UNWANTED DAT 
64 020114 011637 002452 MOV (SPS ,RCVED AND SAVE FOR POSSIBLE ERROR REPORT 
65 020120 022626 CMP (SP)+, (SP)+ :L00K FOR MATCH 
66 020122 001411 BEQ 5$ t1F MATCH, SKIP ERROR DISPATCH 
67 020124 062716 000002 ADD #2, (SP) ;ERROR, MODIFY RETURN FOR ERROR LOOP 
68 020130 005037 002446 CLR MASK [MASK = 0 FOR PREMATURE EXIT 
69 020134 104456 TRAP  C$ERHRD 
020136 000007 .WORD 7 
020140 012454 “WORD EM14 
020142 014172 “WORD ERRO 
70 020144 000207 4$: RTS PC ;RETURN 
71 020146 000241 5$: CLC [CARRY = 0 
72 020150 006137 002446 ROL MASK ;REDUCE THE ITERATION COUNT BY ONE 
73 020154 000241 CLC CARRY “7 
74 020156 006137 002444 ROL SRCTMP :ROTATE PATTERN | 
75 020162 103403 BCS 6$ OBSERVE t SAVE CARRY 
76 020164 005037 002432 CLR CSTORE > CARRY=0 
77 020170 000765 BR 4$ RETURN 
78 020172 012737 000001 002432 6$: MOV #1,CSTORE SCARRY = 1 
3 020200 000761 BR 4$ RETURN 
81 3 2 tHIS MODULE DOES SOME DATA COMPARISON. IF THE DATA DOES NOT MATCH. 
82 STHIS MODULE DOES SOME DATA COMPARISON. IF THE DATA DOES NOT 
83 3AN ERROR MESSAGE AND, APPROPRIATE ates ARE REPORTED. VARIABLES a IErecTED ARE: 
84 i PSTACK “TESTRG', "RCVED'', ‘EXPTED'’. 
rH PITT TITTTITTTTTLI LILI TLI LILI ELLE LLL LEE LEE LLL ELLE 
6 
87 020202 010246 COMPAR: MOV R2,-(SP) ZSAVE R2 
88 020204 012702 002652 MOV #PSTACK,R2 [GET THE SOFTWARE PSTACK ADDRESS 
89 020210 017612 000002 MOV @2(SP), (R2) 3GET THE ADDRESS OF THE DATA PATTERN TO RUN | 
90 020214 013242 MOV @(R2)+.=(R2)  =NOW GET THE DATA PaTT TERN TO USE | 
91 020216 043712 002450 BIC MSK, (R2) : THROW OUT UNUSED DAT | 
92 020222 011237 002454 MOV (R25 EXPTED SAND SAVE EXPECTED RESULTS FOR POSSIBLE ERROR 
93 020226 005737 002460 TST :POLL IR/OR MODE? 
94 020232 001402 BEQ '¢ JUS | 
95 020234 004737 017672 JSR PC, IRLOCK “WAIT FOR IR TO SET, IT REALLY WILL! 
96 020240 012277 162174 1$: MOV (RE) + SNK [WRITE DATA TO THE REGISTER 
97 020244 005737 002460 TST ILO :POLL IR/OR MODE? 
98 020250 001402 BEQ 5. [NOT IF ZERO 
52 004737 017706 JSR PC ,ORLOCK [WAIT FOR OR TO SET, IT REALLY WILL! 
100 020256 017712 162156 2$: MOV @SNK, (R2) [GET THE RESULTS 
101 043712 002450 BIC J (R S IGNORE UNUSED DAT 
102 020266 013737 002440 002456 MOV SNK, TESTRG *SAVE REGISTER ONDER TEST 
103 020274 011237 002452 MOV (R25,RCVED SAND THE REGISTER DATA 
104 020300 021242 CMP (R2),=(R2) *CHECK RESULTS 
105 020302 001406 BEQ 4$ OK, SKIP ERROR REPORT 
106 020304 104456 TRAP  C$ERHRD 
020306 000004 WORD 
020310 012454 WORD €£M14 
020312 014172 “WORD ERRO 
107 020314 005037 002402 CLR TTCOUN SET ITERATIONS To 0 
108 020320 012602 4$: MOV (SP)+,R2 SRESTORE R2 
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PROGRAM UTILITIES 

109 020322 062716 000002 ADD #2, (SP) MOVE RETURN eves DATA INPUT 

19 020326 000207 RTS PC sNOW RETURN TO MAIN 

112 PITTI i iii iii iii iii iii iii iit iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiig) 

11 i THIS MODULE iS re TO CONTINUE A SETUP PROCEDURE BETWEEN SUBTESTS 

114 SMITHIN A DIAGNOSTIC rest, , IT AFFECTS THE FOLLOWING VARIABLES: ‘‘PATCNT’’, 

115 Boe ORE"*, “MASK"*, “SRCTM “RC. 

11g pbesnerabonssaelenstnenstautenstoseneteneneneeneennesenisedubinnbiabiianennd 

118 020330 005337 002434 CONSET: DEC PATCNT ;ONE LESS PATTERN TO GO 

119 020334 100415 BMI 1$ ZUNDERFLOW, WE'RE FINISHED! 

120 020336 005037 002432 CLR CSTORE CLEAR CARRY STORE 

121 020342 062737 000002 002442 ADD #2,SRC 3GET NEXT re 

122 020350 013737 002450 002446 MOV MSK ,MASK RELOAD # OF BITS TO TEST 

123 020356 005137 002446 COM MASK :CORRECT THE INVERSION (BITS TESTED=1) 

124 020362 017737 162054 002444 MOV @aSRC,SRCTMP [LOAD THE BUFFER FOR BIT MANIPULATION 

125 020370 000207 1$: RTS PC RETURN 


a A 


NQOUESWN—OOONOUSWwh 
SSSsoss 


ad ah sd a 


020520 
27 020524 


28 
29 020526 
30 020530 


000750 
012701 


000753 


012601 
000207 





000062 
002506 
010000 
017000 
002506 


006577 
000002 


000006 
000062 
000200 
017000 


002506 
006671 
000002 


000606 


162036 


8 7 | 
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PROGRAM UTILITIES 


fk REAR AR ARR AAAR AREA EERE TEAR EEE E AERA ARATE AEA A ATA RA eee eee T eee eee et 
iTHIS MODULE IS USED IN THE EVENT OF A meln'c FAIL. IT WAITS FOR DRIVE 

SREADY TO SET BEFORE RETURNING TO THEM AIN CODE. IT MAINTAINS A _TIMER 

WHICH PERIODiCALLY INFORMS THE USER THAT DRIVE READY HAS NOT YET SET, AND 
THE PROGRAM IS WAITING FOR IT TO SET BEFORE CONTINUING THE TESTS. 


PITTS TICITTTITITTTILITITILITT ITI Titi TiTitTititiiti titi tilititiitii tit titi titty 
WATDRY: MOV R1,=(SP) sSAVE R1 
1$: MOV :GET AN ITERATION COUNT 


#50.,R1 

MOV DRVNO, ARPCS2 3LOAD THE UNIT UNDER TEST 
2$: BIT #MOL ,@RPDS ;MEDIUM ON LINE? 

BNE 3$ TIF = VES 

JSR PC,WALT ?STALL FOR A WHILE 

DEC R1 SONE LESS ITERATION T0-GO 

BGT 2$ ‘DO UNTIL R1 = 0 

MOV DRVNO, =(SP) 

MOV #MESG10,-(SP) 

MOV #2,-(SP) 

MOV SP. 

TRAP  CS$PNTF 

ADD #6,SP 

BR 1$ ;AND LOOP 
3$: MOV #50.,R1 :GET AN ITERATION COUNT 
4$: BIT #DRY.aRPDS :1S DRIVE READY SET? 

JSR PC WAIT ISTACL FOR A WHILE 

DEC R1 ‘ONE LESS ITERATION T0-GO 

BGT 4$ :DO UNTIL R1 = 0 

MOV DRVNO, =(SP) 

MOV #MeSGII 57 (SP) 

MOV #2,-(SP 

MOV SP*RO 

TRAP _— C$PNTF 

ADD #6,SP 

BR 3$ :AND LOOP 


5$: MOV (SP)+,R1 sRESTORE R1 
PC sEXIT 


=o | 


| 
| 
| 


PROGRAM UTILITIES 


———— 


020532 
0 


020626 000207 


DWDONAUSWN $0 ODONAUSWN $0 OONOUSWN—ODONOUSWwh 
oo ooo oo 
tw 
So 
w 
oO 
oa 
So 
—_ 
— 
m 
~ 
Ww 


005237 
000002 


= WWNWWINAW ANWR NININNNNN 2 2 2 So oe oo 


= 

o 
oo 
fRoror 
ooo 
AAO 
WWW 
So 
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002404 


000001 


002676 


002462 


SEQ 0080 


SERRA REAE ERR ARE EERE EERE EERE REAR ERERAEEA EERE ARERR RAE E AREER EEE 
i THIS MODULE DECODES TWO VARIABLES: ‘‘ERRWD1°’ AND ‘‘ERRWD2"'. CONTAINED 

[WITHIN THESE TWO VARIABLES ARE BITS WHICH REPRESENT THE VARIOUS MODULES 

;WHICH ARE TO BE CALLED OUT FOR DIAGNOSTIC TEST FAILURES. AFTER THE 

: DECODING IS DONE, THE MODULE CREATED AN ASCII DISPATCH TABLE WHICH 

oe TS TO THE VARIOUS ASCII MESSAGES REPRESENTING THE ACTUAL MODULE CALLOUT. 


FERRER EEE EERE EERE EEEEEEEEREEEEEREEEEEEEEEEREREEEEEEREEEEEEEREKKEEED 


DECODE: MOV MERRWD1,RO :GET THE FIRST ERROR WORD STATUS 
MOV #MCUTAB,R2 :GET THE MODULE CALL OUT INDEX FILE 
MOV #MCUTXT.R3 ;NOW GET THE OUTPUT POINTER FILLE 
MOV #2,R5 iE RE DOING 2. ERROR WORD MASKS! 
MOV #13. ,R4 WE'RE CREATING 13. MESSAGE FILES! 
1$ MOV #B1T0,R1 <FORM THE INITIAL BIT MASK 
2$ BIT 1, (RO) :1$ THIS ""ON’ 
BEQ "NO, DON'T bo ANY THING NOW! 
MOV (R2),(R3)+ ‘GET THIS MESSAGE! 
DEC R4 TONE LESS MESSAGE TO GET! 
3$: TST (R2)+ sNEXT INPUT MESSAGE PLEASE... 
ASL R1 ‘MOV MASK OVER FOR NEXT FIND... 
BNE 2$ :KEEP GOING IF NOT ZE 
DEC R5 ‘NEXT ERROR WORD STATUS ? 
BEQ 4$ :IF ZERO, DONE WITH SEARCH 
TST (RO) + ‘NEXT ERROR WORD PLEASE... 
BR 1$ [NOW SCAN THIS 
4$ TST R4 ‘DID WE LOAD 7 MESSAGES? 
BEQ 6$ ‘YES, JUST LOAD POINTER AND RETURN 
5$: CLR (R3)+ ‘CREATE THES NULL MESSAGE FILE 
DEC RG ‘DONE? 
BGT 5$ ‘NOT IF > 0! 
63 MOV #MCUTXT,R2 [LOAD THE OUTPUT POINTER NOW, WE'RE DONE! 
RTS PC :TAKE THE RETURN 


FEAR EEE EEE EE AEE EEE EKEEEEEEEEEAEEEREREEREEEREREREEEE EEE 


:THIS IS A_SIMPLE INTERRUPT ROUTINE WHICH TALLYS THE NUMBER OF INTERRUPTS 
;RECEIVED FOR ANY SELECTED OPERATION. 


eer rrr et TTT TTT TTeTeCTTTTTTTTT TTI TTT TT TT TTT iit TTT Litt LT LTTE LLL EEE Eee 


iNTSRV:: 
INC INTFLG ;COUNT THIS INTERRUPT 
L10007: or 





ro 
' 


7 
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REPORT CODING SECTION 
11 .SBTTL REPORT CODING SECTION 
i ” 
42 : THE REPORT CODING SECTION CONTAINS THE 
43 : PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 
45 ; 
46 020636 LSRPT:: 
36 
60 020636 000167 .WORD J$JMP 
020640 000000 “WORD L10010-2-. 
73 EVEN 
7% 
75 020642 L10010: 
020642 104425 TRAP —- C$RPT 


“CZRIMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1=JAN~83 13:37:00 PAGE 25 
PROTECTION TABLE 


} -SBTTL PROTECTION TABLE 

3 p++ 

4 ; THIS soot IS USED BY THE RUNTIME SERVICES 

: TO PROTECT iHE LOAD MEDIA. 

7? e 

8 020644 LSPROT:: 

9 020644 000000 0 ;P-TABLE OFFSET OF CSR 
10 020646 177777 -1 sNOT A MASSBUS DEVICE 
i 020650 000006 6 ;P-TABLE OFFSET DRIVE # 


SEQ 0082 


—_ % 


C 
I 


21 050700 

22 020700 
020704 

23 

24 020706 

25 020710 

26 

27 020714 
0 0 


29 950742 
34 020746 
35 020752 


36 
37 oc0736 


26 
51 021030 


104433 


012700 
104447 


103504 


012700 
104447 


103002 


104432 
000446 


012700 
104447 


103015 
005037 


012746 


012703 
013700 


005722 


000034 


000036 


000035 


002422 
006420 


000001 
000004 


002512 
002472 


000002 


014700 
002504 


002502 


002472 


» SBTTL 


F 
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jITIALIZE SECTION 


INITIALIZE SECTION 


+e 
: THE INITIALIZ 
; AT THE BEGINN 


LSINIT:: 


1$: 


3$: 


E 
I 


SEC 
NG OF 


CSRESET 


#EF .PWR,RO 
CSREFG 


5$ 


#EF .CON,RO 
CSREFG 


1$ 


CSEXIT 
L10012-. 


#EF .NEW,RO 

CSREFG 

2$ 

ROUTDO 

CRLF ,=(SP) 
P) 


= 
z 
~m 


20., 
#RPCS1,R3 
UNIT ,RO 
C$GPHRD 
RO,RS 


° 


(R3),-(SP) 


2(SP), (SP) 
(SP), (R3)+ 


3$ 
PC,SIZE70 
RHTYPE 


SEQ 0083 


E ; each pase THE CODING THAT IS PERFORMED 


RESET THE WORLD 
sPOWER UP SEQUENCE ? 


G0 TO 5$ IF VES 
sCONTINUE COMMAND ? 


:GO TO 1$ IF NO, ELSE 
sEXIT INIT 


z"STA*, ‘RES* OR "NEW PASS* ? 


:GO TO 2$ IF NO, MUST BE NEW ‘SUB-PASS* 
Hs hey A NEW USER SELECTED MICRO DIAGNOSTIC SELECTION 


Ht oa COUNT 
T NEXT UNIT yr FOR TESTING 
:RH/RP REGISTER COUNT 


A SINK 
Cer UNIT FROM HARDWARE P-TABLE 


sSAVE_R3 
zAND THE BASE ADDRESS 
DERIVE NEW ADDRESS 

LOG IT IN NEW TABLE 

: COUNT LOGGING 

;R2 NOT ZERO, yt ,p0seine 
3 SEE Foo ye ESENT 

71S IT ANR u70 ? 
:BR_IF NO 

3GET RPBAE OFFSET 
;ADD_BASE ay ha TO OFFSET 
:SAVE NEW R PBAE 


ee 


? 
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INITIALIZE SECTION 


52 021032 010213 MOV R2, (R3) sSAVE NEW RPCS3 
54 021034 022626 4$: CMP (SP)+, (SP)+ ZRESTORE S$ 
55 021036 012537 002474 MOV (R5)+,RPADR + SAVE ReCSy MO ASE ADDRESS 
56 021042 012537 002476 MOV (R5) +. RPVEC *SAVE INTERUPT VECTOR ADDRESS 
57 021046 012537 002500 MOV (R5)*,RPVEC+2 :SAVE INTERUPT P 
58 021052 011537 002506 MOV (R5) ,ORVNO :SETUP DRIVE NUMBER FOR UNIT N 
59 021056 013737 002370 002372 MOV ENDTRK,LASTRK :SET UP THE LAST USABLE TRACK 
60 021064 013737 002374 002376 MOV ENDCYL,LASCYL :AND THE LAST USABLE CYLINDER 
61 021072 000402 BR 6$ 
63 021074 004737 020372 5$: JSR PC ,WATDRY :PWR FAIL, WAIT FOR THE DRIVE TO GO READY 
64 021100 005037 002404 6$: CLR ERRWD1 ‘NO ERROR STATUS BITS 
65 021104 005037 002406 CLR ERRWD2 [FOR BOTH MASKS 
66 021110 005037 002460 CLR ILOCK START WITHOUT IR/OR INTERLOCK 
67 021114 005037 002462 CLR INTFLG [RESET THE ™NTERRUPT COUNTER 
63 021120 005037 002464 CLR UNABLE + INSURE THAT UNIT IS ENABLED 
69 021124 005037 002466 CLR ERSTAT ‘NO FAIL STATUS 
70 021130 005037 002420 CLR FUNCTN 'START UP WITH NO FUNCTION CODE 
71 021134 012777 000040 161360 MOV #CLR,aRPCS2 SMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
72 021142 013701 002506 MOV DRVNO,R1 [GET THE DRIVE NUMBER 
73 021146 010177 161350 MOV R1,aRPCS2 SSELECT DRIVE 
74 021152 005037 002400 CLR BITPOS *CLEAR ATTENTION BIT POSITION WORD 
75 021156 116137 002566 002400 MOVB ATABIT (RI) ,BITPOS :GET ATA BIT POSITION FOR THIS DRIVE 
76 021164 004737 015550 JSR CLK ZSTART THE cLock 
77 021170 012746 003720 MOV #3000: -= (SP)  :WAIT 2000. MS 
es 021174 004737 016756 JSR PC WAI TMS 
29 :PRINT DRIVE SERIAL NUMBER 
81 021200 012701 000004 MOV #4,R1 :4 DIGITS 
82 021204 013746 002506 MOV DRVNO, =(SP) 
021210 012746 006423 MOV #DSNMSG,-(SP) 
021214 012746 000002 MOV #2,-(SP) 
021220 010600 MOV SP. 
021222 104417 TRAP —- C$PNTF 
021224 062706 000006 ADD #6,SP 
83 021230 017746 161306 MOV @RPSN, (SP) sFETCH S/N 
84 021234 005002 7$: CLR R2 *ZERO OUT 
85 021236 006116 ROL (SP) [PUT NEXT DIGIT INTO R2 
86 021240 006102 ROL R2 
87 021242 006116 ROL (SP) 
88 021244 006102 ROL R2 
89 021246 006116 ROL (SP) 
90 021250 006102 ROL R2 
91 021252 006116 ROL (SP) 
92 021254 006102 ROL R2 
93 021256 062702 000060 ADD #°0,R2 :MAKE RESULT ASCII 
94 021262 010237 002510 MOV R2,ORVSN SSAVE R2 FOR PRINT 
95 021266 012746 002510 MOV #DRVSN,=(SP) 
021272 012746 006447 MOV #SNDIGT,-(SP) 
021276 012746 000002 MOV #2,-(SP5 
021302 010600 MOV SP.RO 
021304 104417 TRAP  CSPNTF 
021306 062706 000006 ADD #6,SP 
96 021312 005301 DEC R1 :COUNT DOWN DIGIT 
97 021314 003347 BGT 7$ ‘NEXT DIGIT 


Am 


7 
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INITIALIZE SECTION 
98 021316 005726 TST (SP)+ RESTORE STACK 
100 021320 012746 006420 MOV #CRLF ,=(SP) 2 
021324 012746 000001 MOV #1,-(SP) 
021330 010600 MOV SP,RO 
021332 104417 TRAP _ CS$PNTF 
as 021334 062706 000004 ADD #4,SP 
125 
126 021340 104432 TRAP = CSEXIT 
1. 021342 000002 »WORD 10012-, 
139 -EVEN 
140 
141 021344 L10012: 


021344 104411 TRAP CSINIT 


oo -<--—- 


i 


I 
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/AUTODROP SECT 


9-2 


OO ODO Ewn— 


0 
021 
0 


21346 


346 
21346 104461 


7 


-SBTTL AUTODROP SECTION 


; +t 

: THIS CODE IS EXECUTED IMMEDIATELY Ag THE INITIALIZE CODE IF 
; THE “‘ADR’’ FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
; SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

; DROPPED FROM TESTING. 


LSAUTO:: 


110013: 
TRAP C$AUTO 


SEQ 0086 


“amo 


com-_—--—— —- 


1 
2 
3 
4 
5 
6 
4 
8 021350 
9 021350 
10 021354 
11 021360 
12 021364 
13 021370 
14 021374 
15 021402 
16 021404 
17 021410 
18 021410 
021414 
19 021416 
20 021422 
21 021430 
22 021436 
23 02144 
24 021444 


26 021446 
021452 
44 021454 
29 021456 
021456 
021462 
30 021464 
31 021464 
021470 


41 
42 021472 
021474 


mu & 
NOVUIW 


021476 
021476 


005037 


013700 
104436 
000405 


013700 
104436 
013700 
104436 


104432 
000002 


104412 


002404 


002464 
000035 
015312 
000340 
016054 


002426 


015734 


015744 


002476 


002420 


-SBTTL CLEANUP CODING SECTION 


THE CLEANUP CODING $ 
; AFTER THE HARDWARE T 


LSCLEAN:: 


1$: 


2$: 


3$: 


L10014: 


CZRJMAO RPO? FE/HOST ISOLATCR MACRO V04.00 1-JAN-83 13:37:00 PAGE 3? 
“CLEANUP CODING SECTION 


UNABLE 
atm 
PC ,DIAGEN 
rad | 4 Ca 
C$sP 


DRVNO, a@RPCS2 
CLKSTA 

3$ 

2$ 


PKV,RO 
C$CVEC 
3$ 


LKV,RO 
CSCVEC 


RPVEC,RO 
CSCVEC 


CSCLEAN 


SEQ 0087 


ECTION CONTAINS THE CODING THAT IS PERFORMED 
ESTS HAVE BEEN PERFORMED. 


zAND ANY am te ERROR STATUS 
;FOR BOTH MASKS! 
3SET FOR PASS STATUS 
ENSURE THAT INTERNAL ® FAILED STATUS = 0 
ove wry THAT UNIT IS ENABLED 
WAS LAST COMMAND A — COMMAND? 
TIF SO, TAKE THE BRANCH 
SAND ENSURE THAT THE UNIT ISN'T IN DIAGNOSTIC MODE 
3SET PRIORITY TO 7 


STOP CLOCK 

;MASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
GET DRIVE NUMBE 

RELEASE APPROPRIATE CLOCK VECTOR 

NO CLOCK, SKIP 


sL-CLK 
:P-CLK VECTOR RELEASE 
sL-CLK VECTOR RELEASE 


zRPO7 VECTOR RELEASE 


“mo 


‘uasteui acer emne ce 
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DROP UNIT SECTION 


} -SBTTL DROP UNIT SECTION 
3 ++ 
4 3; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
Z : TO NO LONGER BE TESTED. 
7 e 
8 027500 L$Du:: 
8 
19 021500 000167 «WORD J$JMP 
20 021502 000000 «WORD 110015=2-. 
32 EVEN 
33 
34 021504 L10015: 

021504 104453 TRAP C$DU 


SEQ 0088 


=o 


SE + a 





if ZRJMAQ RPOT FE/MOST ISOLATOR MACRO VO4.00 1-JAN-83 13:37:00 PAGE 4? 
| } .SBTTL ADD UNIT SECTION 
3 p++ 
4 : THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5 : TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
6 ; TO THE TEST CYCLE. 
8 6 
9 021506 LSAU:: 
: 
20 021506 000167 WORD JSJMP 
54 021510 000000 "WORD L10016-2=. 
$3 LEVEN 
34 
3§ 021512 110016: 
021512 104452 TRAP SAU 


SEQ 0089 


7 
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HARDWARE TESTS 


2 -SBTTL HARDWARE TESTS 


i ne ee 


SEQ 0090 


aS 
| 
| 
| 
| 
| 
| 


“40 
mm 


ooo So oooooo 
Norororoty 
—o 
w 
Wrorr 
MmMONnor 


+ 


012737 
012746 


003345 
104401 


000012 002402 


000240 


000010 
160736 
000004 


002402 
002402 


sn RPO? Sh a | teetaae MACRO V04.00 1-JAN-83 13:37:00 PAGE 36 
ST UNIT UNDER TEST 


SEQ 0091 


-SBTTL TEST 1 UNIT UNDER TEST 


3 TEST G1 UNIT UNDER 
3 IF Adee DOESN'T 
3% 
3% 3 
3% END TEST 01 
Ti:: 
18 MOV #10.,1TCOUN 
MOV #240,-(SP) 
MOV #2$,-(SP) 
MOV #4,~(SP) 
MOV #3,-(SP) 
TRAP CS$SVEC 
ADD #10,SP 
TST @RPCS1 
#4,R 
TRAP CSCVEC 
BR 3$ 
2$: CMP (SP)+,(SP)+ 
TRAP CSERHRD 
«WORD 1 
«WORD M11 
«WORD 0 
CLR ITCOUN 
3$: DEC ITCOUN 
BGT 1$ 
L10017: 


TRAP CSETST 


TEST 
GET CSR ADDRESS ae ACCESS THE CONTROLLER 
RESPOND 


THEN 
on ERROR MESSAGE (NO SSYNC, DEVICE NOT PRESENT) 


zLOAD THE OVERALL ITERATION COUNTER 


sACCESS THE CONTROLLER 


sRESTORE THE STACK, DEVICE DIDN'T RESPOND 


sser ITERATIONS TO 0 
ONE LESS i{iERATION TO GO 
:KEEP GOING UNTIL = 0! 


4-7 


SABES: Sees eR. Sas 
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TEST 2 RP CLEAR TEST 


.SBTTL TEST 2 RP CLEAR TEST 
TEST 02 _ RECLEAR T TEST 
; cE! “CONTENTS OF RPBA AND STORE THEM 


THEN 
OUTPUT ERROR MESSAGE (RPBA DIDN'T SET) 


Sete Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge 
TEFL TL TL TE FLO TLTLTLTLTL TL TL TL IL 


SEQ 0092 | 


1 
2 
3 
4 
5 
6 
4 
8 
9 ELSE 
7 wit RPCS2: CLR (BIT 05) = 
12 COMPARE RPBA WITH STORED VALUE 
i IF a DID NOT CHANGE 
1? : DS ERROR MESSAGE (DEVICE CLEAR DID NOT FUNCTION) 
4 END TEST 02 
19 021612 T2:: 
$3 54424 012737 000012 002402 1s MOV #10. ,1TCOUN zLOAD THE OVERALL ITERATION COUNT 
021620 104404 TRAP CSBSEG 
22 021622 013777 002346 160666 MOV PATT2,@RPBA LOAD UP RPBA ap ALL ONES 
23 021630 005777 160662 TST @RPBA SEE IF ANY BIT SET 
24 021634 001024 BNE $ eIF ANY BITS SET, TAKE BRANCH 
25 021636 013737 002516 002456 MOV RPBA, TESTRG SAVE THE ADDRESS OF THE REGISTER UNDER TEST 
26 021644 017737 160646 002452 MOV @RPBA,RCVED AND ITS CONTENTS 
27 021652 013737 002346 002454 MOV PATT2,EXPTED ;NOW GET THE rereciee Petia 
28 021660 005037 002404 CLR ERRWD1 :NO RPO? MODULE CAL 
021664 012737 000002 002406 MOV #B1T1,ERRWD2 JUST CALLOUT THE CONTROLLER 
30 021672 104456 TRAP CSERHRD 
021674 000002 WORD 2 
021676 012776 -WORD EM22 
021700 014172 -WORD ERRO 
31 021702 005037 002402 LR ITCOUN s ITERATIONS = 0 
32 021706 2$: 
021706 10000$: 
021706 104405 TRAP CSESEG 
33 021710 104404 TRAP SEG 
34 021712 017746 160600 MOV @RPBA,=(SP) SAVE _RPBA FOR COMPARISON 
35 021716 052777 000040 160576 BIS #CLR,@RPCS2 ISSUE DEVICE CLEAR 
36 021724 027726 160566 CMP @RPBA, (SP) + ;COMPARE PRESENT RPBA STATE ve Bae RPBA LAST STATE 
37 021730 001016 BNE 3$ :TAKE BRANCH IF A — OCCURRED 
38 021732 005037 002454 CLR EXPTED FORM THE EXPECTED DAT 
39 021736 013737 002516 002456 MOV RPBA, TESTRG :GET ADDRESS OF FAILING REGISTER 
40 021744 017737 160546 002452 MOV @RPBA,RCVED ;AND THE CONTENTS OF RPBA 
41 021752 104456 TRAP CSERHRD 
021754 000003 - WORD 
021756 012410 WORD £M13 
021760 014172 -WORD ERRO 
42 021762 00503” 002402 CLR ITCOUN z ITERATIONS = 0 
43 021766 3$: 
0217 10001$: 
0217 104405 TRAP CSESEG 
44 021770 005337 002402 DEC ITCOUN sONE LESS ITERATION TO-GO 
45 021774 003311 BGT 1$ zIF NOT 0, KEEP GOING! 
46 021776 L10020: 


fa re 


8 
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TEST 2 RP CLEAR TEST 


021776 104401 TRAP CSETST 





SEQ 0093 


—_s 


a 


— -- ee  -- 
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TEST 3 RPCS2 READ WRITE TEST 


0 

022000 012737 
022006 005037 
0 2 012737 


022020 004737 


—OODNOUSWN—O DONO Uw 


NON) 2 2 a es 


022102 002352 
022104 104405 
022% 


022116 002350 


022120 104405 
022122 004737 
022126 002522 


022130 104405 
22 022132 005337 
23 022136 003330 


2140 104401 


000002 
002404 
000012 
017744 
002444 
020034 


002436 


002446 


020330 
002434 


020202 


020202 


017474 


002402 


002406 
002402 


002436 


002444 





- SBTTL 


Be Se Se Se Be Se Oe Se Se Se Be Oe Bs 
TEFL FL TL TL TFL TFL TL PL TL FL TL TL 


“4 
Ww 


— 
wn 
ee 


64$: 


65$: 
10000$: 


10001$: 


10003$: 
10002$: 


L10021: 


TEST 3 RPCS2 READ WRITE TEST 
TEST 03 eres READ-WRITE TEST 
: WRITE RPC 2 WITH DATA PATTERNS 1-4, ONE AT A TIME 
BliS TO tests 0..2 
IF none DOES NOT MATCH PATTERN 
vw ERROR MESSAGE (BIT UNDER TEST DID-NOT SET) 
otf RPCS2: CLR = 


N 
IF eae BIT UNDER TEST DID NOT CLEAR 
— OUTPUT ERROR MESSAGE (BIT DIDN'T CLEAR WITH DEVICE CLEAR) 


> ENDI 
END TEST 03 


MOV #B1T1,ERRWD2 SET UP THE MODULE eee a 5 + Nt 


CLR ERRWD1 NO MODULE CALLOUT FOR T 
MOV #10., 1 TCOUN ;LOAD THE OVERALL ITERATION COUNT 
SR PC, SETUP LOAD 1/0 POINTERS 
TSTO3 FROM THIS TABLE 
MOV SRCTMP, TEMP 7SET UP FOR POSSIBLE LOOP 
TRAP C$BSEG 
JSR PC,FLOAT FLOAT THE PATTERN 
BR ;PATTERN FLOATED OK, SKIP ERROR DSPATCH 
MOV TEMP ,SRCTMP TRESTORE THE OLD DATA PATTERN FOR ERROR LOOP 


TRAP CSESEG 


TST MASK :IF MASK = 0, WE'RE DONE 

BNE 64$ 

JSR PC, CONSET ;GET NEXT PATTERN 

TST PATCNT 7 IF PATTERN COUNT hein DONE ! 
BGE 64$ ;NOT DONE YET, GO-0 

TRAP CS$BSEG 

JSR PC,COMPAR WRITE THE NEXT PATTERN 

PATT4 WHICH IS PATTERN #4 


TRAP CSESEG 


JSR PC,COMPAR D0 ANOTHER DATA_COMPARISON 

PATTS USING PATTERN #3 

TRAP CSESEG 

JSR PC,RESET RESET THE DEVICE 

RPCS2 ZCLEAR RPCS2 BY SETTING MASSBUS CLEAR 
TRAP CSESEG 

DEC ITCOUNT ONE LESS ITERATION TO-GO 

BGT 1$ :KEEP GOING IF NOT ZERO 


TRAP CSETST 


E 
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} SBTTL TEST 4 RPWC REAM WRITE TEST 
| 5 x TEST 04 RPWC READ-WRITE TEST 
r ‘% : WRITE RPWC WITH DATA PATTERNS 1..4 
5 :% BliS TO TEST = 1..1 
6 3 IF RWC BIT UNDER TEST DOESN'T MATCH EXPECTED 
8 it OUTPUT ERROR MESSAGE (BIT UNDER TEST DID NOT SET) 
10 ‘% WRITE RPWC = 0 
11 3% NDIF 
12 it IF RPWC BIT(S) UNDER TEST DID NOT CLEAR 
1% i :pgyTPut ERROR MESSAGE (BIT(S) DIDN'T CLEAR WHEN EXPECTED) 
ig x END TEST 04 
18 022142 Stee 
19 022142 005037 002404 CLR —ERRWD1 MODULE CALLOUT 
20 022146 012737 000002 002406 MOV -«A#BIT1,ERRWD2  :FOR THIS TEST 
21 022154 012737, 000012 002402 MOV -«#10.,1TCOUN  :LOAD THE OVERALL ITERATION COUNT 
022162 004737 017744 JSR. «PC SETUP :LOAD 1/0. POINTERS 
022166 004172 TST04 “FROM THIS TABLE 
022170 013737 002444 002436 64$: MOV. SRCTMP,TEMP | :SET UP FOR POSSIBLE LOOP 
022176 104404 TRAP - C$BSEG 
022200 004737 020034 JSR «PC FLOAT FLOAT THE PATTERN 
022204 000403 BR “PATTERN FLOATED OK, SKIP ERROR DSPATCH 
022006 013737 002436 002444 MOV TEMP, SRCTMP RESTORE THE UD DATA PATTERN FOR ERROR LOOP 
039914 100008: 
022214 104405 TRAP SESEG 
022216 005737 002446 TST ASK IF MASK = 0, WE'RE DONE 
022222 001362 BNE OG 
022224 004737 020330 JSR _—~ PC CONSET :GET NEXT PATTERN 
022230 005737 002434 TST —-PATCNT ‘IF PATTERN COUNT UNDERFLOWED, DONE! 
53234 002355 BCE  64$ “NOT DONE YET, GO-ON 
032236 104404 TRAP —- C$BSEG 
022940 004737 020202 JSR. -—s«PCCOMPAR :WRITE THE NEXT PATTERN 
022244 002352 PATTG ‘WHICH IS PATTERN #4 
029246 10001$: 
022246 104405 TRAP —CSESEG 
022250 104404 TRAP —« C$BSEG 
022252 104404 TRAP -C$BSEG 
022254 004737 020202 JSR PC COMPAR :DO ANOTHER DATA COMPARISON 
022260 002350 PATT3 “USING PATTERN #3 
032262 10003$: 
032262 104405 TRAP —«CSESEG 
55564 004737 017572 JSR —s—PC.LDZERO sWRITE RPWC TO 0 TO CLEAR IT! 
022270 10002$: 
032270 104405 TRAP _—CSESEG 
23 022972 005337 002402 DEC —sETCOUN 30.” LESS ITERATION TO-GO 
5% 022276 003331 act —Ss«iS ‘IF NOT ZERO, KEEP GOING 
55 022300 110022: 
022300 104401 TRAP CSETST 


SEQ 0095 


| F 8 
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-SBTTL TEST 5 RPBA READ WRITE TEST 


24 022442 L10023: 
022442 104401 TRAP CSETST 


1 
2 
3 % TEST 05 RPBA READ-WRITE TEST 
4 % : WRITE RPBA WITH DATA PATTERNS 1..4, ONE AT A TIME 
5 :% B1iS TO TEST = 0.. 
6 ik IF RPBA BIT(S) UNDER TEST DON'T MATCH EXPECTED DATA 
8 ik OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST DON'T MATCH TEST DATA) 
10 :% WRITE RPCS2: CLR =1 
11 :% ENDIF 
2 i IF RPBA BIT(S) UNDER TEST DIDN'T CLEAR 
‘3 if OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR) 
16 :% END TEST 05 
17 022302 T5:: 
18 022302 005037 002404 CLR ERRWD1 MODULE CALLOUT 
19 022306 012737 000002 002406 MOV #BIT1,ERRWD2 :FOR THIS TEST 
20 022314 012737 000012 002402 - MOV #10.,1TCOUN [LOAD THE ITERATION COUNTER 
022322 004737 017744 JSR PC, SETUP ZLOAD I/O POINTERS 
022326 004204 TSTOS ‘FROM THIS TABLE 
022220 013737 002444 002436 64$: MOV SRCTMP, TEMP ‘SET UP FOR POSSIBLE LOOP 
022336 104404 TRAP  C$BSEG 
022340 004737 020034 JSR PC, FLOAT sFLOAT THE PATTERN 
022344 000403 BR 65$ ‘PATTERN FLOATED OK, SKIP ERROR DSPATCH 
022346 013737 002436 002444 i MOV TEMP, SRCTMP SRESTORE THE OLD DATA PATTERN FOR ERROR LOOP 
022354 1)000$: 
022354 104405 TRAP  C$ESEG 
022356 005737 002446 TST MASK z1F MASK = 0, WE'RE DONE 
022362 001362 BNE 64$ 
022264 004737 020330 JSR PC, CONSET :GET NEXT PATTERN 
022370 005737 002434 TST PATCNT SIF PATTERN COUNT UNDERFLOWED, DONE! 
022374 002355 BGE 64$ ‘NOT DONE YET, GO-ON 
022376 104404 TRAP C$BSEG 
022400 004737 020202 JSR PC, COMPAR ;WRITE THE NEXT PATTERN 
022404 002352 PATT4 ‘WHICH IS PATTERN #4 
022406 10001$: 
022406 104405 TRAP CSESEC 
022410 104494 TRAP  C$BSEG 
022412 104404 TRAP  C$BSEG 
022414 004737 020202 JSR PC, COMPAR :D0 ANOTHER DATA COMPARISON 
022420 002350 PATT3 SUSING PATTERN #3 
022422 10003$: 
022422 104405 TRAP  CSESEG 
022424 004737 017474 JSR PC, RESET ;RESET THE DEVICE 
022430 002516 RPBA *CLEAR RPBA BY SETTING MASSBUS CLEAR 
022432 10002$: 
022432 104405 TRAP  CSESEG 
22 022434 005337 002402 DEC ITCOUN :0NE_LESS TO GO 
23 022440 003330 BGT 1$ :1F => 0, KEEP GOING! 
| 
L 


(a 


G 
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TEST 6 SC & TRE TEST 1 


SOOO NAMUEWN 0 ODNAUS WN —OVONOUEWh— 


WWRININUNINININININID 2 SO OS 


1 022444 
32 022444 gh 


37 022470 012737 
022476 104404 


25 
48 022546 005037 


02 
49 022552 

022552 

022552 104405 
50 022554 104404 


002504 


002404 
000002 
000012 


000040 
002506 
140000 


017422 


002402 


-SBTTL TEST 6 SC & TRE TEST 1 (RH11) 
a 06 wrsse 4 ees AND TRANSFER ERROR TEST (RH11 TEST ONLY!) 
iF "APCsts SC OR RPCS1: TRE = 1 
ouput ERROR MESSAGE (BIT STUCK AT 1, AND SHOULDN'T BE) 
SET RPCS2: an a + 09) = 


TRFL TL FL TL TL TL FL FL TL TL FL FL TL TL TL FL TL FL FL FL TL TL TL TL ILI 


4 RPCS2: 


OUTPUT ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED) 

iF Recs TRE <> 1 

iw ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED) 
IF oS SC <> 1 


HEN 
ouTPUT ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED) 


= 1 


CS2: CL 
IF ote TRE OR sc = 1 
we ERROR MESSAGE (BITS FAILED TO CLEAR) 


. 4 ENDIF 
: ENDIF 
END TEST 06 


T6:: 
TST RHTYPE 
BEQ 1$ 
TRAP CSEXIT 
eWORD 1L10024-. 
1$: CLR ERRWD1 
MOV #B1T1,ERRWD2 
- MOV #10.,1TCOUN 
TRAP CS$BSEG 
TRAP C$BSEG 
BIS #CLR, AaRPCS2 
MOV DRVNO, aRPCS2 
81! #SC!TRE, @RPCS1 
BEQ 3$ 
JSR PC ,BICEXP 
RPCS1 
SC!TRE 
TRAP CSERHRD 
-WORD 8 
-WORD €EM16 
WORD RRO 
LR ITCOUN 
3$: 
10001$: 
TRAP CSESEG 
TRAP C$BSEG 


sWHICH CONTROLLER?? 
:IF 0, IT'S AN RH11 


sMODULE CALLOUT FOR THIS TEST 
ONLY THE CONTROLLER 
;LOAD THE ITERATION COUNTER 


2 INITIALIZE ae DEVICE 
AND LOAD THE DRIVE NUMBER 
;SPECIAL CONDITION OR TRANSFER ERROR? 


LOAD FAILING DATA 


FAILING REGISTER 
BIT UNDER TEST 


ITERATIONS = 0 


SEQ 0097 


a — 


r- ——— + == -_—- 


MAO RPO 


Mm OU 


PIP AIIUIUI oF 
NOWUSwN— 
OoOooCcooooo yz 


84 022764 
85 022770 
86 022772 

022772 


052777 


0327 


005037 


104405 
005337 
003242 


104401 


(RH11) 


001000 157736 
001000 157730 


017372 


002402 


4$: 
10002$: 


040000 157662 
017372 


002402 
100000 157626 5$: 


017372 


002402 

157602 
002506 157574 
140000 157556 
017422 


6$: 


002402 


7$: 
10000$: 


002402 


L10024: 


8 
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& TRE TEST 1 


#MXF ,ARPCS2 
#MXF ,ARPCS2 


PC ,BISEXP 


_— 
EM22 
ERRO 
ITCOUN 


CSESEG 
#TRE ,@RPCS1 
PC ,BISEXP 
CSERHRD 
10 

EM22 

ERRO 
ITCOUN 
#SC ,aRPCS1 
PC ,BISEXP 
CSERHRD 

11 

EM22 

ERRO 


ITCOUN 
#CLR,@RPCS2 
DRVNO, arPCcs2 
asc: i TRE ,@RPCS1 
PC ,BICEXP 


cyemne 


ITLUUN 


CSESEG 
ITCOUN 
2$ 


CSETST 


yh MISSED TRANSFER = 1 
DID IT SET? 

YES IT DID, A ERROR DISPATCH 

LOAD FAILING DAT 

FAILING REGISTER 

;BIT UNDER TEST 


s ITERATIONS = 0 


DID WE DETECT A TRANSFER ERROR?? 


7 YES, ps 

sLOAD FAILING DATA 
sFAILING REGISTER 
;BIT UNDER TEST 


sTERATIONS = 0 

DID WE GET SPECIAL —— 
YES, SKIP Se wi M ste TCH 

:LOAD FAILING D 


; FAILING REGISTER 
BIT UNDER TEST 


ITERATIONS = 0 
CLEAR OUT THE CONTROLLER 


RELOAD THE DRIVE NUMBER 
son SC Pant CLEAR OUT? 


TEST OK! 
‘TOAD FAILING DATA 
FAILING REGISTER 


:BIT UNDER TEST 


ITERATIONS = 0 


sONE LESS Ne ed ae TO GO 
;KEEP GOING IF => 0! 


SEQ 0098 


=a 


-——_---—- eee 


TEST 7 


OS ro OO arene ee a eee 


WRonononononanonongng @ a 
NAUSWN 0 VOONOAOUSWWN 0 OONO VU Swh 


Owe 


31 022774 


023106 
46 023110 


005037 


002404 
000002 
000012 


000100 
000002 
002116 
177772 
177756 
000100 
017372 


002402 


002406 
002402 


157474 


157434 
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-SBTTL TEST 7 IR AND OR TEST 


IR <> 


ta npCse: 
N 


ENDIF 
IF ae 


TRF FL FL TL TL TL TL FL FL TL FL TL TL TL FL TL TL FL TEFL TL TL TL TILT 


: ENDI 
END TEST 07 


T7:: 
CLR ERRWD1 
MOV #BIT1,ERRWD2 
13 MOV #10. , 1 TCOUNT 
TRAP C$BSEG 
TRAP C$BSEG 
BIT #IR,@RPCS2 
BNE 
MOV #2,(PC)+ 
- WORD 
MOV LSDLY,(PC)+ 
. WORD 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE 7 
BIT #IR,ARPCS2 
BNE 
JSR PC ,BISEXP 
_~ 
TRAP CSERHRD 
eWORD 13 
eWORD EM17 


WORD ERRO 
CLR ITCOUN 


WRITE RPDB = 
ENDIF 
af hes OR <> 1 


ELSE 

1 ae RPDB ONCE 

OR <> 0 

wir ERROR MESSAGE (BIT FAILED TO CLEAR WHEN EXPECTED) 


33 ve * of abe AND OR TEST #1 
: RPCS2: IR = A 


THE 
WAIT USING A TIMING LOOP 
IF TIMING LOOP HAS EXPIRED AND IR <> 1 


THEN 
guiewt ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED) 
0, ONCE 


HEN 
WAIT, USING 4 TIMING L 
IF TIMING LOOP HAS EXPIRED AND RPCS2: 


THEN 
OUTPUT ERROR MESSAGE (RPCS2: 
ENDIF 


OR <> * 
OR DIDN'T Seti IN TIME) 


sMODULE CALLOUT FOR THIS TEST 
ONLY THE CONTROLLER COULD FAIL! 
LOAD THE ITERATION COUNT 


;LOOK FOR IR TO SET IN RPCS2 
:SET, GO-ON 


;LOOK FOR IR TO BE SET NOW! 
31T SET IN TIME 


:BIT UNDER TEST 


ITERATIONS = 0 


SEQ 0099 


wns & 
-—oO Oo 
WWAWNAWA AAA AAA 
— oe sd od wd wd td wd ee 
NOQOUUSE SSW es 
SUSENGOROSNONARRE 3 


MAM 


67 023256 
0 6 


P07 FE 
& 
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OR TEST 
2$: 
10001$: 
104405 TRAP CSESEG 
005077 157412 CLR @RPDB 
032777 000200 157372 BIT #OR ,ARPCS2 
001032 BNE 
012727 000020 V #20, (PC)+ 
00000 «WORD 
013727 002116 Vv LSDLY,(PC)+ 
000000 WORD 
005367 177772 EC =-6 (PC) 
001375 BNE 74 
005367 177756 DEC =22(PC) 
001367 BNE 7 
032777 000200 157332 BIT #OR ,ARPCS2 
001012 BNE 
004737 017372 JSR PC ,BISEXP 
002522 RPCS2 
000200 OR 
104456 TRAP CSERHRD 
000016 eWORD 14 
012116 WORD MS 
014172 ~ WORD RRO 
5037 002402 CLR ITCOUN 
005777 157312 3$: TST aRPDB 
0352777 000200 157272 BIT #OR,@RPCS2 
001412 BEQ 4 
004737 017422 JSR PC ,BICEXP 
002522 RPCS2 
000200 OR 
104456 TRAP CSERHRD 
000017 eWORD 15 
012155 -WORD EM6 
014172 eWORD ERRO 
005037 002402 “8 CLR 1 TCOUN 
10000$: 
104405 TRAP CSESEG 
005337 002402 DEC ITCOUN 
003253 BGT 1$ 
L10025: 
104401 TRAP CSETST 


SEQ 0100 


WRITE RPDB ONCE WITH DATA 
NOW LOOK FOR OUTPUT READY 
:GOT IT, GO ON 


;LOOK FOR OR TO BE SET NOW 
zIT SET IN TIME 

LOAD FAILING DATA 
FAILING REGISTER 

BIT UNDER TEST 


sITERATTIONS = 0 
sREAD THE ve NOW 


o 


iI 

LOAD FAILING DATA 
sFAILING REGISTER 
BIT UNDER TEST 


ITERATIONS = 0 


ONE LESS ITERATION TO-GO 
sKEEP GOING UNTIL <= 0 


| k 8 
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} .SBTTL TEST 8 RPDB READ WRITE TEST #1 

3 3% --" att RPDB READ WRITE TEST #1 

4 3% RITE RPDB WITH DATA PATTERNS 1,2,5, ONE AT A TIME 

§ i% » ee IR<>1 

% ret BIT UNTIL IT SETS 

10 3% WRITE DATA TO RPDB 

11 ENDIF 

12 4 IF RPCS2: OR<>1 

13 7% : THEN 

M3 if se: BIT UNTIL IT SETS 

18 4 a RPDB 

H 4 3 IF RPDB RECEIVED DATA DOESN'T MATCH EXPECTED DATA 

$0 if " yews ERROR MESSAGE (BITS RECEIVED DON'T MATCH EXPECTED DATA) 

22 4 IF RPCS2: IR<>1 

235 3% : THEN 

24 3h POLL RPCS2: IR UNTIL IT SETS 

25 re NDIF 

26 3k WRITE RPDB WITH O'S 

eo? 33 IF RPCS2: OR<>1 

28 3% : THEN 

29 3% POLL RPCS2: OR UNTIL IT SETS 

30 33 ENDIF 

31 5 IF RPDB<>0 

32 3k THEN 

a 3 g OUTPUT ERROR MESSAGE (BITS FAILED TO CLEAR) 

3 3% [ND TEST 08 

37 023270 T8:: 

38 023270 012737 177777 002460 MOV #-1, ILOCK sMARK THE RPDB POLL MODE 

39 023276 005037 002404 CLR ERRWD1 i CREATE ine MODULE CALLOUT 

40 023302 012737 000002 002406 MOV #B1T1,ERRWD2 FOR THIS TEST 

43 Osesie 012737 000012 002402 is MOV #10.,1TCOUN *LOAD THE ITERATION COUNTER 
023316 004737 017744 JSR PC,SETUP ;LOAD I/0 POINTERS 
023322 004216 TSTO8 * FROM THIS TABLE 
023324 013737 002444 002436 64$: MOV SRCTMP, TEMP SET UP FOR POSSIBLE LOOP 
023332 104404 TRAP C$BSEG 
023334 004737 020034 JSR PC, FLOAT sFLOA® THE PATTERN 
023340 000403 BR 65$ SPATicRN FLOATED OK, SKIP ERROR DSPATCH 
Oe a aee 013737 002436 002444 658 MOV TEMP, SRC TMP “RESTORE THE OLD DATA PATTERN FOR ERROR LOOP 
023350 ; 100008: 
023350 1044( TRAP CSESEG 
023352 00573. 002446 TST MASK s1F MASK = 0, WE'RE DONE 
023356 001362 BNE 64$ 
023360 004737 020330 JSR PC, CONSET :GET NEXT PATTERN 
023364 005737 002434 TST PATCNT s1F PATTERN COUNT DERFLONED. DONE! 
023370 002355 BGE 64$ ‘NOT DONE YET, GO-0 


a 
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TEST 8 RPDB READ WRITE TEST 
023372 ioegee TRAP CSBSEG 
023374 4737 020202 JSR PC, COMPAR WRITE THE NEXT PATTERN 
023400 003950 PATT4 sWHICH IS PATTERN #4 
023402 10001$: 
023402 MS ene $4 TRAP CSESEG 
023404 104404 TRAP CS$BSEG 
023406 104404 TRAP CS$BSEG 
023410 004737 020202 JSR PC, COMPAR D0 ANOTHER DATA_COMPARISON 
023414 002350 PATTS ZUSING PATTERN #3 
023416 10003$: 
023416 104405 TRAP CSESEG 
023420 004737 017572 JSR PC,LDZERO sWRITE RPDB TO 0 TO CLEAR IT! 
023424 10002$: 
023424 104405 TRAP CSESEG 
43 023426 005337 002402 DEC ITCOUN 2 ONE LESS ITERATION TOGO 
44 023432 003331 BGT 1$ KEE? GOING UNTIL <= 
45 023434 005037 002460 CLR ILOCK CLEAR THE FOLLED MODE OF OPERATION 
46 023440 L10026: 
023440 104401 TRAP CSETST 


ee 





ro 


34 

34 012737 

34 005037 

34 012737 

3 012737 
104404 


FORNONANOONFLONMN 


WN —OODNOUSWN -OCODNOUSWN 0 VBNOUSWN“OVDVONO VW 
YES RuOtONaa rant 


SOOCOCSCOCOCOoOSOoOSBEGCoCooo 


SHERWIN WII IUNININNNNIN 2 2 2 2 Oe OO Oe Oe 
POPIPONONININGNPONIPONININNINoNgPonononynofry 


005303 
002354 
104405 
005337 
003334 


4 
34 044 
34 01270 
34 0047 
35 013777 
35 005 
35 002371 
35 012703 
35 004737 
35 023777 
35 001414 
35 013737 
3542 017737 
3550 104456 
0235 
023 
023 
4 023560 
45 023564 
023566 
47 023570 
023 04 
104401 


000012 


000001 
017672 
002454 


000001 
017706 
002454 


002534 
156766 


002402 


002402 


002454 


002406 
002402 


157024 


157002 


602456 
002452 


M 
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-SBTTL TEST 09 RPDB READ WRITE TEST #2 


3% vess A or a WRITE TEST #2 
3% : oF i pres ATIONS DO 
3% PCS2: IR <> 1 
3% if EN 
if POLL BIT UNTIL IT SETS 
3% WRITE RPDB WITH PATTERN #5 
3% : ENDIF 
3% END DO 
3% FOR 2 ITERATIONS DO 
3% : IF RPCS2: OR <> 1 
3% THE 
3% POLL BIT UNTIL IT SETS 
3% ELSE 
% 1 ie RPDB 
8 IF Tee <> PATTERN #5 
3 ion ERROR MESSAGE (BITS RECE!VED DON'T MATCH EXPECTED DATA) 
3% : END DO 
3% END TEST 09 
T9:: 
MOV #PATTS,EXPTED sGET THE TESTING DATA PATTERN 
CLR ERRWD1 ;CREATE THE MODULE CALLOUT 
MOV #B1T1,ERRWD2 [FOR THIS TEST 
1$ MOV #10.,1TCOUN *LOAD THE ITERATION COUNT 
TRAP C$BSEG 
MOV ;SET UP TO DO Two WRITE OPERA‘ IONS 
2$: JSR PC. IRL LOCK *WAIT FOR IR TO SET 
MOV EXPTED,@RPDB sNOW LOAD RP NCE 
DEC R3 ;ONE LESS ITERATION TO 
BGE T MINUS, LOAD RP 
MOV P SNOW SET-UP TO DO TwO READ OPERATIONS 
3$: JSR PC ,ORLOCK ‘WAIT FOR OR TO SET 
CMP EXPTED,aRPDB :DOES THE DATA MATCH? 
BEQ 4$ QUAL, YES IT’ 
MOV RPDB, TESTRG 3GET THE FAILING REGISTER 
MOV @RPDB,RCVED sNOW GET THE FAILING DATA 
TRAP CSERHRD 
-WORD 16 
-WORD EM14 
-WORD ERRO 
CLR ITCOUN sRESET FURTHER ITERATONS 
4$: DEC RS sONE LESS ITERATION TO-DO 
BGE 3$ 3IF NOT MINUS, DO-AGAIN 
10000$: 
TRAP CSESEG 
DEC ITCOUN ONE LESS ITERATION TO GO 
BGT 1$ ;KEEP GOING UNTIL <= 0 
L10027: 
TRAP CSETST 


SEQ 0103 


— 


a 


n 8 
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002534 002456 
002404 


WH —OOONOUEWA) 0 ODNOUSWN—“OVDONOUEW— OO 
—s 
NOONWFSLONMw! 


POPOPONPINNNNoNoNyNonononogfnony 
Oo 
mo Rone 


SLELEREREEWWWWA WA WIRUNININS & a a 
Rite 
SREN 


DWNAOVUSWN—OOONOuU 
SOOOOSOSOSOSOSOSOSOSSSOSOSOOOoOSoOOoOoooooocoooo 


a abe a a hror 
N“N 


mu & 
mov 


-SBTTL TEST 10 RPDB READ WRITE TEST #3 


% TEST 10 RPDB READ WRITE TEST #3 
:% : FOR 8 ITERATIONS DO 
3% : : JF RRPCS2: IR <> 1 
3% : THEN 
is POLL BIT UNTIL IT SETS 
:% ypthite RPDB WITH A DATA PATTERN (SEQUENTIALLY USING PATTERNS 1 THRU 8) 
% END DO 
% FOR 8 ITERATIONS DO 
3% : IF RPCS2: OR <> 1 
3% : THEN 
i POLL BIT UNTIL IT SETS 
:% READ RPDB 
3% ENDIF 
3 IF RPDB DOESN'T MATCH EXPECTED DATA 
:% i ypoutPut ERROR MESSAGE (BITS RECEIVED DON'T MATCH EXPECTED DATA) 
% : END DO 
:% END TEST 10 
10:: 
MOV RPDB, TESTRG :GET THE ADDRESS OF THE REGISTER UNDER TEST 
CLR ERRWD1 :MODULE CALLOUT, THIS TEST 
MOV #BIT1,ERRWD2 ONLY THE CONTROLLE 
- MOV #10.,1TCOUN ‘LOAD THE ITERATION COUNT 
TRAP C$BSEG 
MOV #1,R4 ZOVERALL LOOP COUNTER 
= MOV #PATT1,R2 S INPUT POINTER 
TRAP  C$BSEG 
MOV R2,-(SP) :SAVE THE INPUT START ADDRESS 
MOV #8., :SET UP TO WRITE 8 TIMES 
3$: JSR PC, [RLOCK ‘POLL IR AND WAIT FOR IT 
MOV (R2)+,aRPDB ‘LOAD THE BUFFER 
DEC R3 SREDUCE THE # OF ITERATIONS 
BNE 33 SAND CONTINU 
MOV (SP) +,R2 SRESTORE THE ORIGINAL POINTER 
MOV #8.,R SAND THE ITERATION COUNTERS 
4$: JSR PC ORLOCK :POLL OR AND WAIT FOR IT 
CMP (R2)+,aRPDB :DOES THE DATA MATCH 
BEQ 5$ SIF IT DOES, SKIP ERROR DISPATCH 
MOV @RPDB,RCVES ‘GET THE BAD 
MOV -2(R2),EXPTED AND THE EXPECTED DATA 
TRAP  CSERHRD 
.WORD 17 
[WORD EM14 
“WORD ERRO 
CLR ITCOUN :RESET FURTHER ITERATIONS 
5$: DEC R3 ‘ONE LESS ITERATION TO GO 
BNE 4$ [NOT FINISHED, CHECK NEXT PATTERN 


10001$: 


——_ 


000731 


104405 


005337 002402 


003320 
104401 


04 
012702 002346 
5004 


6$: 
10000$: 


L10030: 


CSESEG 
R4 


6$ 
#PATT2,R2 
R4 
2s 


CSESEG 
ITCOUN 
1$ 


CSETST 


DONE? 

zs1F 0, YES 

3GET NEXT PATTERN 

zAND INDICATE 2ND HALF OF TEST 
sNOW DO IT! 


;ONE LESS ITERATION TO GO 
3KEEP GOING UNTIL <= 0 


SEQ 0105 


"eee 


am 


C 


,CZRJMAO RPO? FE/HOST ISOLATOR MACRO 04.00 1-JAN-83 13:37:00 PAGE 46 


TEST 11 MDPE, SC & TRE TEST (RH70 TEST) 


MEWN — © OONAUSWN—OVDONA MSW 


NONNONo ong 3 2 Ss 


37 005737 
26 023776 003002 


30 024016 012737 
104404 


47 024122 140000 
4124 104456 


0 
49 024134 005037 
024140 


002504 


002404 
000002 
000012 


000040 


000400 
017372 


140000 
017372 


002402 


156400 


~SBTTL 


Be Se Se Ge Be Se Ge Se Be Se Ge Be Be Be Ge Ge Ge Ge Se Se 


PS PR FR TL TL TL TTL TL TL TL TL TFL TO TL TL PL TL TL TL Te 


“4 
—_ 
ee 
ee 


2$: 


3$: 


4$: 


TEST 11 MDPE, SC & TRE TEST (RH70 TEST) 
TEST MR al SC 8 TRE TEST (RH70 TEST) 


SET RP L 
LOAD iHE UNIT=UNDER-TEST # INTO RPCS2 
SET RPCS2: PAT 
if RPC Se o. IR <> _ 

: WAIT UNTIL RPCS2: : IR = 1 


uRITE RPDB ONCE, WITH PATTERN #3 
4 to MDPE <> 1 
oy ERROR MESSAGE (MDPE DIDN'T SET WHEN EXPECTED) 
af —" SC & RPCS1: TRE <> 1) 
Low ERROR MESSAGE (FAILED TO DETECT RPCS1: SC OR TRE) 
Lgtalt 11 
SR io oes gy wonhoaes 


TRAP CSEXIT 
-WORD 1L10031-. 


CLR ERRWD1 ; CREATE Ha MODULE CALLOUT 
MOV #B1T1,ERRWD2 FOR THIS 

MOV #10.,1TCOUN [LOAD THE ITERATION COUNT 

TRAP C$BSEG 

BIS #CLR,aRPCS2 START OUT WITHOUT ERRORS! 
MOV DRVNO. it ;LOAD THE DRIVE NUMBER 

BIS #PAT ,ARPCS2 s:NOW_ INVERT PARITY 


PC, IRLOCK 
MOV PATT3, aRPDB WRITE THIS DATA 
BIT #MDPE .ARPCS2 oy WE FORCE A MASSBUS PARITY ERROR? 


BNE 3 F SET, Y 

JSR PC ,BISEXP FORM THE REPORT DATA 
RPCS2 ;THIS REGISTER 

MDPE sTHIS BIT FAILED TO SET 
BR 4$ NOW TAKE THE CALL 


BIT #SCITRE ,ARPCS1 ;DID WE GET TRANSFER ERROR AND SPECIAL CONDITION? 
BNE 5$ >YES, TEST PASSES! 
JSR PC ,BISEXP GET eee DATA 


RPCS1 :THIS R 

SC! TRE :THESE BITS FAILED TO SET! 
TRAP CSERHRD 

-WORD 18 

-WORD &M33 

-WORD ERRO 

CLR ITCOUN NO FURTHER ITERATIONS 


SEQ 0106 


! | » 9 
CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 46-1 SEQ 0107 
‘TEST 11 MDPE, SC & TRE TEST (RH70 TEST) 


024140 104405 TRAP CSESEG 

| 51 024142 005337 002402 DEC ITCOUN sONE LESS ITERATION TO GO 
52 024146 003326 BGT 2s sKEEP GOING IF NOT <= 0! 
53 0241 L10031 


50 : 
024150 104401 TRAP CSETST 


i a NN 


--- ce an ae ee ae 


| 


= 


S 


rs 


a 
MONON ROK ee 
FWN —OVONOUSWN OO OONO Uw nm 


024322 


005737 


012737 
012700 


013737 


104405 


002352 
104405 


002350 


104405 
004737 
002564 


002504 


002404 
000002 
000012 
000340 
017744 
002444 
020034 


002436 


002446 


02033u 
002434 


020202 


020202 


017474 


002406 
002402 


002436 


002444 


-SBTTL 


TEFL FL TL TL TL TL FLTLILTL TL 


4 
_ 
Nm 
ee 


1$: 


2$: 


64$: 


65$: 
10000$: 


10001$: 


10003$: 


10002$: 


RPO7_FE/HOST ISOLATOR MACRO V04.00 1-JAN-8? 13:37:00 PAGE a 
RPCS3 READ/WRITE TEST 


TEST 12 RPCS3 READ/WRITE TEST 


we alte yt TEST ONLY) RPCS3 READ-WRITE TEST 
Hi 2 aS DATA PATTERNS 1..4, ONE AT A TIME 
' 


4 is 1041 BiT(S) ONDER TEST DIDN'T SET 

quTpuT ERROR MESSAGE (BIT(S) DIDN'T SET) 

SET RPCS2: CLR = 1 

ag RPCS3 BIT(S) UNDER TEST DIDN'T CLEAR 
 pQurPur ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR) 
END TEST 12 
TST RHTYPE z1F RHTYPE=+1 CONTROLLER IS AN RH70 


CLR ERRWD1 MODULE CALLOUT 
MOV #BIT1,ERRWD2 FOR THIS TEST 
MOV #10.,1TCOUN ‘SET UP THE ITERATION COUNTER 


7SET PRIORITY T 
MOV #PRIO7,R0 


TRAP C$SPRI 

JSR PC, SETUP LOAD 1/0 POINTERS 

TST11 FROM THIS TABLE 

MOV SRCTMP, TEMP 3SET UP FOR POSSIBLE LOOP 
TRAP C$BSEG 


iS PC,FLOAT 
MOV TEMP ,,SRCTMP 


FLOAT THE PATTERN 


TRAP CSESEG 
TST MASK zIF MASK = 0, WE'RE DONE 


BNE 64$ 

JSR PC, CONSET GET NEXT PATTERN 

TST PATCNT 3 1F PATTERN COUNT UNDERFLOWED, DONE! 
BGE 64$ NOT DONE YET, GO-ON 

TRAP C$BSEG 

JSR PC,COMPAR sWRITE THE NEXT PATTERN 

PATT4 ;WHICH IS PATTERN 


TRAP CSESEG 
TRAP C$BSEG 
TRAP CSBSEG 


JSR PC, COMPAR D0 ANOTHER a a acleantaaen 


PATTS USING PATTERN # 

TRAP CSESEG 

JSR PC,RESE? RESET THE DEVICE 

RPCS3 :CLEAR RPCS3 BY SETTING MASSBUS CLEAR 


sPATTERN FLOATED OK, SKIP_ERROR DSPATCH 
RESTORE THE OLD DATA PATTERN FOR ERROR LOOP 


SEQ 0108 


——_ 


9 
ZRJMAG RPO7_FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE aot SEQ 0109 
EST 12 RPCS3 READ/WRITE TEST 


024322 104405 TRAP CSESEG 
28 024324 005337 002402 DEC ITCOUN sONE LESS ITERATION TO GO 
29 024330 003325 BGT 2$ KEEP GOING IF NOT <= 0! 
30 024332 L10032: 

024332 104401 TRAP CSETST 


Te + 


an 


26 054500 


i 005737 


012737 
004737 


013737 


104405 


002352 
104405 


002350 


104405 
004737 
002562 


104405 
005337 


RPBAE READ/WRITE T 


002504 


002404 
000002 
000012 
017744 
002444 
020034 


002436 


002446 


020330 
002434 


020202 


020202 


017474 


002402 


002406 
002402 


002436 


002444 


-SBTTL 


TRF FL FL TL IL FL TL TL TLIL IL 


T13:: 


1$: 


2$: 


64$: 


65$: 
10000$: 


100018. 


10003$: 


10002$: 


TEST 13 RPBAE READ/WRITE TEST 
TEST 13 (RH70 TEST ONLY) RPBAE READ-WRITE TEST 
: rit 10 tee iy he DATA PATTERNS 1..4, ONE AT A TIME 
IF + +e BIT(S) UNDER TEST DIDN'T MATCH EXPECTED DATA 
OUTPUT ERROR MESSAGE (BIT(S) DIDN'T SET) 
SET RPCS2: CLR = 1 
IF RPBAE BIT(S) UNDER TEST DIDN'T CLEAR 
ouTPuT ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR) 


END TEST 13 


ST RHTYPE TEST CONTROLLER TYPE 
BGT 1$ zIF > 0, IT IS AN RH70 
TRAP CSEXI 
. WORD L10033-. 


CLR ERR MODULE CALLOUT 
MOV #B1T1 -ERRUD2 sFOR THIS TEST 
MOV #10.,1TCOUN LOAD THE ITERATION COUNTER 


JSR PC, SETUP LOAD 1/0 POINTERS 


TST12 ;FROM THIS TABLE 
MOV SRCTMP, TEMP 7SET UP FOR POSSIBLE LOOP 
TRAP C$BSEG 


i” PC, FLOAT 
MOV TEMP, SRCTMP 


FLOAT THE PATTERN 
sPATTERN FLOATED OK, SKIP ERROR DSPATCH 
RESTORE THE OLD DATA PATTERN FOR ERRUR LUCP 


TRAP CSESEG 

TST MASK zIF MASK = 0, WE'RE DONE 
BNE 64$ 

JSR PC,CONSET GET NEXT PATTERN 

TST PATCNT 7 1F PATTERN COUNT UNDERFLOWED, DONE! 
BGE 64$ NOT DONE YET, GO-ON 

TRAP C$BSEG 

JSR PC ,,COMPAR WRITE THE NEXT PATTERN 
PATT4 WHICH IS PATTERN #4 

TRAP CSESEG 

TRAP C$BSEG 

TRAP C$BSEG 

JSR PC,COMPAR D0 ANOTHER DATA COMPARISON 
PATT3 USING PATTERN #3 


TRAP CSESEG 


JSR PC,RESET RESET THE DEVICE 


RPBAE CLEAR RPBAE BY SETTING MASSBUS CLEAR 
TRAP CSESEG 
DEC ITCOUN zGNE LESS ITERATION 


SEQ 0110 


Poo ~ a a ee + ee ——- 


H 9 
ZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 48-1 SEQ 0111 
TEST 13 RPBAE READ/WRITE TEST 
27 024504 003330 BGT 2s 71F NOT <= 0, KEEP GOING 
28 024506 L10033: 


024506 104401 TRAP CSETST 


I re 
: 


‘CZRIMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4d 


TEST 


14 RPBAE DUPLICATED A16 TEST 


012737 000002 
005037 002404 
012737 000012 


104404 
012777 000400 
24540 032777 000400 


32 024550 004737 017372 


—9O0 DNOVUSWN 0 OONOUSWN—OOONO Vw 


WWE fononoononononony 2 @ 2 2 ow 


024566 
36 024570 005037 002402 
37 024574 032777 001000 


39 024604 004737 017422 


43 024624 005037 002402 


104405 
47 024634 005737 002504 
49 024642 104432 


155710 


-SBTTL TEST 14 RPBAE DUPLICATED A16 TEST 


. . . . . 
FETS TEFL TL FL TE TL TFL TL TE TL TL TL TL TL TL TL TL TL 


Se Se Ge Se Ge Se Se Ge Ge Ge Se Se Se Se Se Se Ge Se Oe & 


4 
— 
- 
ee 


— 
bd 


2$: 


3$: 
10000$: 


TEST 14 (RH70 TEST ONLY) 
: WRIT 


“Ay sorter A16 TEST 


E RPCS1: A16 (BIT 08) = 
<> 1 


IF RPCS1: A116 < 


THEN 
OUTPUT ERROR MESSAGE (BIT DIDN'T SET AS EXPECTED) 


L 
IF RPCS1: A117 = 
: THEN 


es ERROR MESSAGE (BIT SET WHEN NOT EXPECTED) 


IF RPBAE: BIT 


0< 
THEN OUTPUT ERROR MESSAGE (BIT STUCK AT 0) 


SET RPCS2: 
NDIF 


ENDIF 
IF has 


= 1 


A16)> AND (RPBAE: BIT 0)) 


> 0 
THEN OUTPUT ERROR MESSAGE (BIT(S) STUCK AT 1) 


: ENDIF 

END TEST 14 

MOV #BIT1,ERRWD2 
ERRWDi 

MOV #10.,1TCOUN 


C$BSEG 
MOV #A16,aRPCS1 
BIT #A16,aRPCS1 


PC,BISEXP 
TRAP crane 
WORD EM22 

RD ERRO 

R ITCOUN 
5 #A17,aRPCS1 
JSR PC ,BICEXP 

¢S1 


TRAP CSERHRD 
-WORD 19 
WORD EM14 
WORD ERRO 
CLR ITCOUN 


BGT o 
TRAP CSEXIT 


NO BBD? gee THIS TEST 
;LOAD THE ITERATION COUNTER 


:SET RPCS1:A16=1 
Ht pd RPCS1:A16 


GO ON 
‘LOAD FAILING DATA 
:FAILING REGISTER 
;BIT UNDER TEST 


NO FURTHER ITERATIONS 
:DID_Al7 ALSO SET? 

:IF ZERO, ‘TT's Ok! 
LOAD THE wecerioe BIT 
auis mitt REGISTE 


ITERATIONS = 0 


SEQ 0112 


J 9 
| Fenn AO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 49-1 SEQ 0113 
TEST 14 RPBAE DUPLICATED A16 TEST 


024644 000036 .WORD 10001$-. 
50 024646 032777 000001 155706 4S: BIT  § #BITO,aRPBAE =; TEST RPBAG:BITO. (PARALLELS RPCS1=A16) 
51 024654 001012 BNE 5$ :1F SET, GO ON 
52 024656 004737 017372 JSR «PC, BISEXP [LOAD FAILING DATA 
53 024662 002562 RPBAE FAILING REGISTER 
54 024664 000001 BITO BIT UNDER TEST 
55 024666 104456 TRAP CSERHRD 
024670 000024 . WORD 
024672 012776 “WORD  EM22 
024674 014172 “WORD  ERRO 
56 024676 005037 002402 ¢LR —sITCOUN ITERATION COUNT = 0 
57 024702 5$: 
58 024702 10001$: 
024702 104405 TRAP —CSESEG 
59 024704 104404 TRAP  C$BSEG 
60 024706 052777 000040 155606 BIS #CLR,aRPCS2  —s_; CLEAR OUT THE DEVICE 
61 024714 032777 000400 155570 BIT  #A16.aRPCS1 TEST RPCS1:A16 
62 024722 001412 BEQSs6S$ IF ZERO, GO ON 
63 024724 004737 017422 JSR PC, BICEXP [LOAD FAILING DATA 
64 024730 002512 RPCS1 [FAILING REGISTER 
65 024732 000400 A16 BIT UNDER TEST 
66 024734 104456 TRAP CSERHRD 
024736 000025 .WORD 21 
024740 013051 “WORD M23 
024742 014172 “WORD  ERRO 
67 024744 005037 002402 CLR —srTCOUN NO FURTHER ITERATIONS 
68 024750 6$: 
69 024750 100028: 
024750 104405 TRAP —CSESEG 
70 024752 104404 TRAP —«C$BSEG 
71 024754 005737 002504 TST —«RHTYPE ;TEST CONTROLLER TYPE 
72 024760 003002 BGT = 7$ SIF > 0, IT IS AN RH70 
73 024762 104432 TRAP —«C$EXIT 
024764 000036 .WORD  10003S-. 
024766 032777 000001 155566 7$: BIT  #BITO,aRPBAE =; TEST RPBAE:BITO 
75 024774 001412 BEQ i1F 0, GO ON 
76 024776 004737 017422 JSR PC, BICEXP LOAD FAILING DATA 
77 025002 002562 PPBAE FAILING REGISTER 
78 025004 000001 BITO BIT UNDER TEST 
79 025006 104456 TRAP CSERHRD 
025010 000026 .WORD 22 
025012 013051 “WORD EM23 
025014 014172 “WORD  ERRO 
80 025016 005037 002402 clk —sTCOUN RESET THE ITERATION COUNTER 
81 025022 8$: 
82 025022 100038: 
025022 104405 TRAP —CSESEG 
83 025024 005337 002402 DEC ITCOUN {ONE LESS ITERATION TO GO 
84 025030 003237 BGT 1$ :DO UNTIL <= 0 
85 025032 L10034: 
025032 104401 TRAP — CSETST 


[or nn ne 


kK 9 
/CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 50 SEQ 0114 
_TEST 15 RPBAE DUPLICATED A17 TEST 


| .SBTTL TEST 15 RPBAE DUPLICATED A17 TEST 
TEST 15 (RH70 TEST ONLY) RPBAE DUPLICATED A17 TEST 
: WRITE RPCS1: A17 (BIT 09) = 1 
IF RPCS1: A117 <> 1 
: QUTPUT ERROR MESSAGE (BIT FAILED TO SET? 
iF RPCS1: A16 = 1 
iypQUTPUT ERROR MESSAGE (BIT SET WHEN NOT EXPECTED) 
IF RPBAE: BITO1 DIDN'T SET 
QUTPUT ERROR MESSAGE (BIT FAILED TO SET) 
poet RPCS2: CLR = 1 
IF ((RPCS1: A17) AND (RPBAE: BITO1)) <> 0 


: THEN 
Lely ERROR MESSAGE (BIT(S) DIDN'T CLEAR) 


Bete ee 
verse 


Be Se Se Se Se Se Ge Be Se Se Se Be Se Be Ge Se Se Be Se 


PS PR FR TL TL THT TL FL TL TL TL TE TE TL TE TL TL IL TL TL 


: ENDIF 
END TEST 15 


025034 T15:: 

025034 005037 002404 CLR ERRWD1 sMODULE CALLOUT FOR THIS TEST 
025040 012737 000002 002406 MOV #BIT1,ERRWD2 ;CONTROLLER ONLY 

OS enee 012737 000012 002402 MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
025054 104404 TRAP C$BSEG 


vans WIRIPIPUNINPINININNIDY 2 SS OS a oS 
NOUSWN—| OVOONAUESWN $0 0ONOUEWN—OVDONO Vw 


025056 012777 001000 155426 MOV #A17,aRPCS1 3SET_RPCS1:A17=1 
025 032777 001000 155420 BIT #A17,aRPCS1 TEST _RPCS1:A17 
025072 001012 BNE zIF =2, OK 
0250 004737 017372 JSR PC ,BISEXP LOAD FAILING DATA 
35 025100 002512 RPCS1 FAILING REGISTER 
36 025102 001000 Al7 BIT UNDER TEST 
37 025104 104456 TRAP CSERHRD 
025106 000027 - WORD 3 
025110 012776 WORD EM22 
025112 014172 -WORD ERRO 
38 025114 005037 002402 CLR ITCOUN NO ITERATIONS 
39 025120 032777 000400 155364 2$: BIT #A16,aRPCS1 z:DID_A16 ALSO SET? 
40 025126 001412 BEQ sIF ZERO, NO-IT'S OK! 
41 025130 004737 017422 JSR PC ,BICEXP LOAD THE FAILING DATA 
42 025134 002512 RPCS1 :THIS REGISTER 
43 025136 000400 A16 THIS BIT FAILED TO REMAIN CLEAR: 
44 025140 104456 TRAP CSERHRD 
025142 000030 -WORD 24 
025144 012454 WORD EM14 
025146 014172 WORD ERRO 
45 025150 005037 002402 CLR ITCOUN : ITERATIONS = 0 
46 025154 : 
47 025154 10000$ 
025154 104405 CSESEG 
48 025156 104404 TRAP C$BSEG 
49 025160 005737 002504 TST RHTYPE :TEST CONTROLLER TYPE 


—_————- 


/CZRIMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 
TEST 15 RPBAE DUPLICATED Al7 TEST 
| 50 025164 003002 BGT 4$ 
51 025166 104432 TRAP (C$EXIT 
| 025170 000036 .WORD 10001$-. 
52 025172 032777 000002 155362 48: BIT #B1T1,aRPBAE 
53 025200 001012 BNE 5$ 
54 025202 004737 017372 JSR PC ,BISEXP 
55 025206 002562 RPBAE 
56 025210 000002 BIT1 
57 025212 104456 TRAP § CSERHRD 
025214 000031 «WORD 25 
025216 012776 .WORD &M22 
025220 014172 .WORD ERRO 
58 025222 005037 002402 CLR ITCOUN 
59 025226 5$: 
60 025226 10001$: 
025226 104405 TRAP CSESEG 
61 025230 104404 TRAP C$BSEG 
62 025232 052777 000040 155262 BIS ACLR,aRPCS2 
63 025240 032777 001000 155244 BIT #A17,aRPCS1 
025246 001412 BEQ 6$ 
65 025250 004737 017422 JSR PC ,BICEXP 
025254 002512 RPCS1 
67 025256 001000 Al? 
68 025260 104456 TRAP  CSERHRD 
025262 000032 .WORD 26 
025264 013051 -WORD EM23 
025266 014172 -WORD ERRO 
69 025270 005037 002402 CLR ITCOUN 
70 025274 6$: 
71 025274 10002$: 
025274 104405 TRAP C$ESEG 
72 025276 104404 TRAP  C$BSEG 
73 025300 005737 002504 TST RHTYPE 
025 03002 BGT 7$ 
75 025306 104432 TRAP CSEXIT 
025310 000036 .JORD  10003$-. 
76 025312 032777 000002 155242 7$: BIT #B1T1,aRPBAE 
77 025320 001412 BEQ 
78 025322 004737 017422 JSR PC ,BICEXP 
79 025326 002562 RPBAE 
80 025330 001000 17 
81 025332 104456 TRAP CSERHRD 
025334 000033 .WORD 27 
25336 013051 .WORD €M23 
025340 014172 .WORD ERRO 
82 025342 005037 002402 CLR ITCOUN 
83 025346 8$: 
84 025346 10003$: 
025346 104405 TRAP  CS$ESEG 
85 025350 095337 002402 DEC ITCOUN 
86 025354 003237 BGT 1$ 
87 025356 L10035: 
025356 104401 TRAP = CSETST 








set” 


;I1F > 0, = RH70 


TEST RPBAE BIT! 
:LOAD FAILING DATA 
FAILING REGISTER 
*BIT UNDER TEST 


s ITERATIONS = 0 


3SET_RPCS2:CLR=1 
TEST RPCS1:A17 


; - OK 
LOAD FAILING DATA 


FAILING REGISTER 
BIT UNDER TEST 


s ITERATIONS = 0 
TEST CONTROLLER TYPE 
sIF =+1, IS RH70 


;TEST RPBAE:BIT1 
[LOAD FAILING DATA 


FAILING REGISTER 
BIT UNDER TEST 


ITERATIONS = 0 


sONE LESS ITERATION 
:IF NOT <= 0, KEEP GOING 


SEQ 0115 





a i a ee ee ee eee 


hy 
| CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 51 
TEST 16 INTERRUPT ENABLE = BIT TEST 
| 1 -SBTTL TEST 16 INTERRUPT ENABLE = BIT TEST 
4 3% TEST 16 INTERRUPT ENABLE BIT SET-CLEAR TEST 
4 3% : SET PROCESSOR PRIORITY = 7 (LOCK OUT ALL INTERRUPTS) 
5 33 SEi_RPCS1: IE (BIT 06) = 1 
6 3% IF RPCS1: 
7 3% : THEN 
if view ERROR MESSAGE (BIT DIDN'T SET) 
10 3% SET RPSS2: CLR = 1 
11 3% NDIF 
12 3% IF RPCS1: IE <> 0 
13 3% : TH 
i f es ERROR MESSAGE (BIT DIDN'T CLEAR) 
1¢ 3% END TEST 16 
18 025360 T16:: 
19 025360 005037 002404 CLR ERRWD1 yg CALLOUT 
20 025364 012737 000002 002406 MOV #B1T1,ERRWD2 FOR THIS TEST 
21 025372 012737 000012 002402 MOV #10., 1TCOUN [LOAD THE ITERATION COUNT 
22 025400 1$: :SET PRIORITY TO 7 
23 025400 012700 000340 MOV #PRIO7,RO 
025404 104441 TRAP CS$SPRI 
24 025406 104404 TRAP C$BSEG 
25 025410 052777 000100 155074 BIS #1IE,aRPCS1 sWRITE RPCS1: INTERRUPT ENABLE=1 
26 025416 032777 000100 155066 BIT #1E,aRPCS1 STEST RPCS1:1E 
27 O6 2656 00101 BNE SIF 2, GO ON 
28 025426 004737 017372 JSR PC ,BISEXP SLOAD’ FAILING DATA 
$ 025432 002512 RPCS1 sFAILING REGISTER 


| 
0 025434 000100 IE sBIT UNDER TEST 
31 025436 104456 TRAP CSERHRD 
025440 000034 -WORD 28 
025442 012776 — EM22 


Wi rRRO 
025446 005057 002402 CLR ITCOUN s ITERATIONS = 0 


2$: 

25452 10000$: 
$2tee 104405 TRAP Cseses 
25456 052777 000040 155036 BIS #CLR,ARPCS2 7SET RPCS2:CLR=1 
025464 032777 000100 155020 BIT #IE,aRPCS1 sTEST RPCS1:1E 

472 001412 BEQ 3$ TIF 0, TEST PASSES 
025474 004737 017422 JSR PC ,BICEXP sLOAD FAILING DATA 
0 002512 RPCS1 * FAILING REGISTER 
0 000100 IE BIT UNDER TEST 
104456 TRAP om 


013051 «WORD at 
005037 002402 CLR ITCOUN RESET FURTHER ITERATIONS 


3$: 
10001$: 
5 TRAP CSESEG 
7 002402 DEC ITCOUN 3 ONE tes ITERATION TO-GO 
4 BGT 1$ zIF = 0, WE'RE NOT DONE 
0 000000 MOV #0,R0 


MAMA AVIV UI) 


WRoRPOnoN = So 
i=) 
os 
& 
— 
| 
NS 
s 
= 
oO 
=] 
o 


Oooooocececwe 
PoNPsNononononononory 


BRaR KARL 
Ono WUPW 


ee ee ee Ce Se + ee + ee ee 


SEQ 0116 
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TEST 16 INTERRUPT ENABLE = BIT TEST 
0255 104441 TRAP = CSSPRI 
49 0255 110036: 


0255%5 104401 TRAP —CSETST 


4 


— 


a 


CZRJ 
TEST 


ig 


WR CVONOUSW—OOONOMNSWwhr— No 


NNN YAR ee SS 
oooooooo 


MMNoPNoNnyny 


25 


47 025712 


005737 


012737 
104404 
012700 


005037 


104405 


005037 


002504 


002404 
000002 
000012 


000340 


000100 
000100 


017372 


002402 


000040 
000100 


017422 


002402 


002406 
002402 


154702 
154746 


154644 
154700 


-SBTTL 


TRFL FL TL FL TL TL IL TL TL TL 


—" 
_ 
N 


1$: 


2$: 


3$: 
10000$: 


4$: 
10001$: 


RPO? FE/HOST ISOLATOR MACRO V04. es {-sAN-85 13:37:00 PAGE gt 
RH70 DUPLICATE INTERRUPT ENABLE T 


TEST 17 RH70 DUPLICATE INTERRUPT ENABLE TeST 
TEST 17 (RH70 TEST ONLY) RPCS3 DUPLICATE INTERRUPT ENABLE TEST 
: SET PROCESSOR Pett Os =7 
fF RPCS1: IE (BIT 06) = : 
F RPCS3: IE (BIT 06) <> 


THEN 
OUTPUT “oo MESSAGE 
ELSE SET RPCS2: CLR = 1 


ENDI 
IF — IE) AND (RPCS3: IE)) <> 0 
one ERROR MESSAGE (BIT(S) DIDN'T CLEAR) 


ENu TEST 17 
TST RHTYPE CAN WE bO THIS TEST 
BGT 1$ :IF RH TYPE =+1, CONTROLLER IS RH70 


TRAP CSEXIT 
-WORD L1C037-. 


CLR ERRWD1 sMODULE CALLOUT 
MOV #8171, ERRWD2 FOR THIS TEST 
MOV #10.,1TCOUN [LOAD THE ITERATION COUNT 


TRAP C$BSEG 


sSET PRIORITY TO 7 
MOV etd of RO 
C$SPRI 


TRAP 

MOV MIE ,aRPCS1 SET RPCS1:1E=1 
BIT #IE;ARPCS3 STEST RPCS3:1E 

BNE :IF SET, GO ON 

JSR PC ,BISEXP LOAD FAILING DATA 
RPCS3 FAILING REGISTER 
IE ;BIT UNDER TEST 
TRAP CSERHRD 

-WORD 30 

- WORD pe 

. WORD 

CLR 1TCOUN NO ITERATIONS NECESSARY 


TRAP CSESEG 
TRAP C$BSEG 


BIS ACLR,ARPCS2 7CLEAR ste THE DEVICE 
BIT #IE,aRPCS3 :TEST RPCS3:1 
BEQ 4$ IF CLEAR, TEST ai 
SR PC,BICEXP LOAD FAILING DATA 
RPCS3 FAILING REGISTER 
E ‘BIT UNDER TEST 
TRAP CSERHRD 
WORD 31 
~WORD EM23 
«WORD ERRO 
CLR ITCOUN NO ITERATIONS 


=n! 


SEQ 0118 


-sfss--- ee cm 
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TEST 17 RH70 DUPLICATE INTERRUPT ENABLE T 


025712 104405 TRAP CSESEG 
48 025714 005337 002402 DEC ITCOUN sONE LESS ITERATION TO-GO 
49 025720 003324 BGT 2$ :>0 ?? DO AGAIN!! 
50 025722 012700 000000 MOV #0,R0 
025726 104441 TRAP CS$SPRI 
51 025730 L10037: 
025730 104401 TRAP CSETST 


nn nn ee a eee 


' 2 


—> 


IPCK 


8 
1 
| 2 
3 3% 
| 4 33 RPCS3: IPCK 
5 33 4 at 
6 3% 
7? 7% 
j 8 7% L 
| 9 :% IF RPCS2: 
i 10 33 : THEN 
| 11 it WAIT 
i 12 3% ENDIF 
13 3% WR'TE DATA TO RPDB 
| 14 33 EN F 
15 7% IF ((RPCS1: 
16 3% THEN 
17 3h 
18 33% 
19 3% SET RPCS2: 
20 3% IF ((RPCS2: 
21 7% : 
| 22 3% 
23 3% 
24 yf ENDIF 
25 3% : ENDIF 
$$ 3% END TEST 18 
28 025732 T18:: 
29 025732 005737 002504 TST RHTYPE 
025736 003002 BG 64$ 
025740 104432 TRAP CSEXIT 
025742 000264 -WORD 110040-. 
025744 005037 002404 64$: CLR ERRWD1 
025750 012737 000002 002406 MOV #B1T1,ERRWD2 
025756 012737 000012 002402 MOV #10.,1TCOUN 
025764 66$: 
025764 104404 TRAP CS$BSEG 
025766 052777 000001 154570 BIS #B1TO,aRPCS3 
025774 032777 000001 154562 BIT #BITO,aRPCS3 
026002 001012 BNE 6 
026004 004737 017372 JSR PC .BISEXP 
026010 002564 RPCS3 
026012 000001 BITO 
026014 104456 TRAP CS$ERHRD 
026016 000040 -WORD 32 
026020 012776 -WORD EM22 
026022 014172 -WORD ERRO 
026024 005037 002402 CLR ITCOUN 
026030 65$: 
026030 10000$: 
026030 104405 TRAP CSESEG 
026032 104404 TRAP C$BSEG 
026034 004737 017672 JSR PC, IRLOCK 
026040 005077 154470 CLR @RPDB 
026044 004737 017706 JSR PC,ORLOCK 
026050 005777 154460 TST @RPDE 
026054 004737 017000 JSR PC WAIT 


1 
0 ree fear ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE $3 


-SBTTL TEST 18 IPCKO TEST 
vest 1s, (RH70 TEST ONLY) 

SET CKO (BIT 
i IPCKO <> 1 
OUTPUT ERROR MESSAGE (BIT DIDN'T SET) 
IR <> 1 


TRE) AND (RPCS1: 


CLR = 1 
MCPE) OR (RPCS1: 


SEQ 0720 


MDPE TEST 1 
0) =1 


SC) AND (RPCS2: MCPE)) <> 1 


od ae ERROR MESSAGE (SHOULD HAVE DETECTED A PARITY ERROR) 


SC) OR (RPCS1: TRE)) = 1 


THEN 
ort ERROR MESSAGE (FRROR STATUS DIDN'T CLEAR) 


;1S THE CONTROLLER AN RH70? 
IF > 0 ° 


SET THE MODULE CALLOUT 
7FOR THIS TES 
;LOAD THE ITERATION COUNT 


THE BITO-UNDER-TEST 
BITO SET IN RPCS3? 

. SKIP ERROR oe 
D FAILING DAT 

LING REGISTER. 

NDER TEST 


cu 


RESET FURTHER ITERATIONS 


sPOLL_ INPUT my IN RPCS2 
WRITE RPDB WITH O'S 

:NOW WAIT FOR og — H. RPCS2 
;NOW DO A ONE WORD READ RPDB 
[WAIT FOR THE RPO? MICROPROCESSOR 


CZR | RPO7 He eeast ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 3§-1° 


TEST 18 IPCKO T 
026060 
0 


oO 
Nm Nm 
o o 
= = 
&* 
* 


30 096996 
026226 


Oeerre 


052777 
104405 


005037 


104405 
005337 
003257 


1044.1 


140000 154424 
017372 


002402 
000400 154400 67$: 
017372 
002402 
000040 154344 68$: 
10001$: 
000001 154374 
017422 
002402 
69$: 
10002$: 
00?’ * 
L1004): 


MSC! TRE ,@RPCS1 
PC ,BISEXP 


CSERHRD 

33 

EM22 

ERRO 

ITCOUN 

+ arate 
PC ,BISEXP 


CSERHRD 
34 


ITCOUN 
#CLR,@RPCS2 
CSESEG 
C$BSEG 
#8110, aRPCS3 
PC, ,BICEXP 


_- 
EM23 
ITCOUN 
CSESEG 
ITCOUN 
66$ 


CSETST 


: LOOK FOR SC_AND TRE 


BIT UNDER TEST 


iu FURTHER ITERATIONS 
DID By Fe bed PARITY ERROR? 


SLOAD FAILING DATA 


FAILING REGISTER 
BIT UNDER TEST 


sRESET FURTHER ITERATIONS 
CLEAR OUT THE DEVI" 


= NOW et wel SEE THAT #B1TO DID CLEAR 
SLOAB FAILING DATA 


:FAILING REGISTER 
:BIT UNDER TEST 


RESET FURTHER ITERATIONS 


ONE LESS ITERATION TO-GO 


: TAKE BRANCH IF NOT DONE 


SEQ 0121 


A A NS eo - 


--—— ee — - a 
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TEST 19 IPCK1 TEST 
} -SBTTL TEST 19 IPCK1 TEST 
| 3 33 vese 19 (RH70 TEST ONL?) a yy 2 
4 3% SET RPCS3: ait. " Ny Ck1 
3% i at $3: IPCK 
| Py 
| 4 if ot ag ERROR MESSAGE (BIT DIDN'T SET) 
9 4 IF RPCS2: IR <> 1 
10 3% THEN 
11 3% wait FOR RPCS2: IR TO SET 
12 3% ENDIF 
13 3% WRITE RPDB ONCE 
14 33 EN DIF 
13 3 + eg TRE) AND (RPCS1: SC) AND (RPCS2: MDPE)) <> 1 
4 tg ERROR MESSAGE (UNDETECTED PARITY ERROR) 
19 3% SET RPCS2: CLR = 1 
$y % IF A TRE) OR (RPCS1: SC) OR (RPCS2: MDPE)) = 1 
$$ f whe ERROR MESSAGE (ERROR STATUS FAILED TO CLEAR) 
24 MS ENDIF 
$2 3% END TEST 19 
27 026230 T19:: 
28 026230 005737 002504 TST RHTYPE 31S THE CONTROLLER AN RH70? 
026234 003002 BGT 64$ s1F > 0, YES. 
026236 104432 TRAP CSEXIT 
026240 000264 -WORD 110041-. 
026242 005037 002404 64$: CLR ERRWD wD1 :SET THE MODULE CALLOUT 
026246 012737 000002 002406 MOV #BIT1,ERRWD2 FOR THIS TES 
saa te: 012737 000012 002402 668 MOV #10.,1TCOUN [LOAD THE ITERATION COUNT 
026262. 104404 TRAP C$BSEG 
026264 052777 000002 154272 BIS #B1T1,aRPCS3 3SET THE ge st 
026272 032777 000002 154264 BIT #BIT1, *aRPCS3 :D1D BIT1 SET IN RPCS3? 
026300 001012 BNE 65$ sYES, SKIP F DROR DISPATCH 
026302 004737 017372 JSR PC, ,BISEXr [LOAD FAILING DATA 
026306 002564 RPCS3 * FAILING REGISTER 
026310 000001 BITO BIT UNDER TEST 
026312 104456 TRAP CSERHRD 
026314 000044 -WORD 36 
026316 012776 -WORD €&M22 
026320 014172 eWORD ERRO 
026322 005037 002402 CLR ITCOUN sRESET FURTHER ITERATIONS 
026326 65$: 
026326 10000$: 
026326 104405 TRAP CSESEG 
026330 104404 TRAP C$BSEG 
026332 004737 017672 JSR PC, IRLOCK sPOLL INPUT READY IN RPCS2 
336 005077 154172 CLR @RPDB WRITE RPDB WITH 0°S 
342 004737 017706 JSR PC ,ORLGCK 3NOW WAIT FOR ve a —~ iN RPCS2 
026346 005777 154162 TST aRPDB ;NOW DO A ONE WORD READ OF RPDB 
026352 004737 017000 JSR PC WAIT SWAIT FOR THE ty MICROPROCESSOR 
026356 032777 140000 154126 BIT #SC!TRE,@RPCS1 [LOOK FOR SC AND TRE 


mm nn re ee = = = ee 


1 


_— 


oo 
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/TEST 19 IPCK1 TEST 


| 
| 
| 
| 
| 026436 
026440 


026522 
29 026524 
026524 


crc 


9 
boa75 
002512 


052777 
104405 


005037 


104405 
005337 
003257 


104401 


017372 


002402 
000400 154102 67$: 


017372 


002402 
000040 154046 os 
10001$: 


000002 154076 
017422 


002402 


69$: 
10002$: 


002402 


L10041: 
T 


67$ 

PC ,BISEXP 
CSERHRD 

37 

EM22 

RRO 

ITCOUN 

#MOPE ,aRPCS2 
PC ,BISEXP 
CSERHRD 

38 

EM22 
ERRO 

ITCOUN 
#CLR,@RPCS2 
CSESEG 
C$BSEG 
#8171, aRPCS3 
PC,BICEXP 


rane 
EM23 
ITCOUN 
CSESEG 
ITCOUN 
66$ 


CSETST 


; THEY BOTH SET, GO-ON 
LOAD FAILING DATA 
soot ine os 
3B1T UNDER TEST 


RESET FURTHER ITERATIONS 
:D1D WE DETECT PARITY ERROR? 
7YES, GO-ON 
:LOAD FAILING DATA 
FAILING REGISTER 
'B1T UNDER TEST 


RESET FURTHER ITERATIONS 
CLEAR OUT THE DEVICE! 


3 NOW et arti SEE THAT #BIT1 DID CLEAR 


T 
:LOAb FAILING DATA 
FAILING REGISTER 
!BIT UNDER TEST 


RESET FURTHER ITERATIONS 


ONE LESS ITERATION TO-GO 
TAKE BRANCH IF NOT DONE 


SEQ 0123 


—— 


—__-- 
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} .SBTTL TEST 20 IPCK2 TEST 
3 3% hag * ,. (RH70 TEST wht MDPE aes 3 
4 3% RPCS3: IPCK2 (BIT2) = 
5 33% Hf Tapes: IPCK2 <> et 
6 3% : THEN 
4 3s ot aad ERROR MESSAGE (BIT DIDN'T SET) 
g 3% IF ot IR <> 1 
10 3% : HEN 
11 3% $ uAit FOR RPCS2: IR TO SET 
12 33 : ENDIF 
i % eit DATA TO RPDB 
12 3 - ——" TRE) AND RPCS1: SC) AND (RPCS2: MCPE)) <> 1 
\ e OUTPUT ERKIR MESSAGE (UNDETECTED PARITY ERROR) 
19 3% SET RPCS2: CLR = 1 
¢ 3 IF = SC) OR (RPCS1: TRE) OR (RPCS2: MCPE)) = 1 
$$ 3 yor ERROR MFSSAGE (ERROR STATUS FAILED TO CLEAR) 
24 33 END 
1 3% END VEST 20 
27 026526 T20:: 
28 0663468 005737 002504 TST RHTYPE 3!S THE | ei AN RH7C? 
026532 003002 BGT 64$ SIF > 0, 
6534 104432 TRAP CSEXIT 
026536 000304 . WORD 10042-. 
026540 005037 002404 64$: CLR ERRWD1 3SET oat MODULE CALLOUT 
026544 012737 000002 002406 MOV #B1T1,ERRWD2 ‘FOR THIS TEST 
060338 012737 000012 002402 “as MOV #10., 1 TCOUN ;LOAD THE ITERATION COUNT 
026560 104404 TRAP c$BS 
026562 052777 000004 153774 BIS fatto aRPCS3 SET THE ee bait 
026570 032777 000004 153766 BIT #BIT2,aRPCS3 DID BIT2 SET IN RPCS3? 
026576 001012 BNE 6 YES, SKIP ERRON DISPATCH 
026600 004737 017372 JSR PC ,BISEXP ;LOAD FAILING DAT 
026604 002564 RPCS3 sFAILING REGISTER 
026606 000001 BITO sBIT UNDER TEST 
026610 104456 TRAP CSERHRD 
026612 000050 -WORD 40 
026614 012776 -WORD EM22 
026616 014172 -WORD ERRO 
026620 005037 002402 CLR ITCOUN sRESET FURTHER ITERATIONS 
026624 65$: 
026624 10000$: 
026624 104405 TRAP CSESEG 
026626 104404 TRAP CS$BSEG 
026630 004737 017672 JSR PC, IRLOCK sPOLL INPUT READY IN RPCS2 
34 005077 15367 CLR aRPbB [WRITE RPDB WITH O'S 
026640 004737 017672 JSR PC, IRLOCK sWAIT FOR IR TO SET AGAIN 
026644 005077 153664 CLR @RPDB sWRITE RPDB = N 
026650 004737 017706 JSR et, IRLOCK NOW WAIT FOR OUTPUT READY IN RPCS2 
026654 005777 153654 TST a@RPbS :NOW DO A ONE WORD READ OF RPDB 


a a 
| 


A 
CZRJMAO RPO7 He cuest ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE s$-i 


TEST 20 IPCK2 T 


026660 004737 


052777 
104405 


005037 


104405 
7034 005337 
027040 003247 

29 027042 


027042 104401 


017706 


0 
140000 
017372 


002402 
000400 


017372 
002402 
000040 


000004 
017422 


002402 


002402 


153610 


153564 


153530 


153560 


67$: 


68$: 
100 


69$: 
10002$: 


L10042: 
T 


01$: 


PC ,ORLOCK 
aRPDB 

PC WAIT 

Sy TE EPCS 
PC, ,BISEXP 


CSERHRD 
41 


ITCOUN 
#MDPE ,aRPCS2 
PC ,BISEXP 


CSERHRD 
42 


EM22 
ERRO 


ITCOUN 
#CLR,aRPCS2 
CSESEG 
C$BSEG 

#91 Te @RPCSS 
PC,BICEXP 
CSERHRD 

43 

EM23 

0 

ITCOUN 
CSESEG 
ITCOUN 

66$ 


CSETST 


SEQ 0125 


zvAIT FOR OUTPUT - b TO SET IN RPCS2 AGAIN! 
7D¢ A SECOND READ OF RPD 
sWALT FOR THE RPO7 MICROPROCESSOR 


sFAILING REGISTER 
BIT UNDER TEST 


RESET FURTHER ITERATIONS 
:DID WE DETECT PARITY ERROR? 
zYES, GO-ON 

LOAD FAILING DATA 

sFAILING REGISTER 

BIT UNDER TEST 


RESET FURTHER ITERATIONS 
CLEAR OUT THE DEVICE! 


= NOW ats: ey SEE THAT #BIT2 DID CLEAR 
ZLOAD FAILING DATA 


SFAILING REGISTER 
;BIT UNDL? TEST 


RESET FURTHER ITERATIONS 


ONE LESS ITERATION TO-GO 
: TAKE BRANCH IF NOT DONE 


i 
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TEST 21 IPCK3 T 


.SBTTL TEST 21 IPCK3 TEST 
TEST. 21 (RH70 TEST ONLY) MDPE TEST 4 
PCS3: IPCK3 (BIT 03) = 1 
iF "APCS: IPCK3 <> 1 
OUTPUT ERROR MESSAGE (BIT FAILED TO SET) 
IF oo" IR <> 1 
: WAIT FOR RPCS2: IR TO SET 
ENDIF 
ELSE 
WRITE DATA TO RPDB 
WAIT FOR ®PCS2: IR TO SET AGAIN (USING A TIMER) 
i ypWeite RPDB WITH DATA AGAIN 
IF C<RPCS1 SC) AND (RPCS1: TRE) AND (RPCS2: MCPE)) <> 1 
OUTPUT ERROR MESSAGE (UNDETECTED PARITY ERROR) 
x SET RPCS2: CLR = 1 
IF CCRPCS1 SC) OR (RPCS1: TRE) OR (RPCS2: MCPE)) = 1 
i QUTPUT ERROR MESSAGE (ERROR STATUS FAILED TO CLEAR) 
END TEST 21 


TO rerererererererererererererererererererere rere rary 
DE TL TL TL FL TL TL TL FL TL FL TL TFL TL TL TL TL TL FL TL TL TL TL TL TL TL 


OOD NAUE WN $0 ODNOAUESWN OO OONO Sw 


WWIRIPIPRINPIPININININNY SO 


027044 T21:: 

027044 005737 002504 TST RHTYPE z1S THE Se AN RH70? 
027050 003002 BGT 64$ sir > @, 

027052 104432 TRAP CSEXIT 

027054 000304 WORD 110043-. 

027056 005037 002404 64$: CLR ERRWD1 soe THE tin CALLOUT 
027062 012737 000002 002406 MOV #8171, ERRWD2 FOR TH 

Oso 012737 000012 002402 668 MOV #10.,1TCOUN SLOAD THE ITERATION COUNT 
027076 104404 TRAP C$BS 

027100 052777 000010 153456 BIS Wits. aRPCS3 SET THE gt me sith 
027106 032777 000010 153450 BIT #B1T3,aRPCS3 sor © BIT3 SET RPCS3? 
027114. 001012 BNE 65$ sYES, SKIP ERROR plernree 
027116 004737 017372 JSR PC ,BISEXP LOAD FAILING DAT 

027122 002564 RPCS3 sFAILING REGISTER 

027124 000001 BITO :BIT UNDER TEST 

027126 104456 TRAP fpenune 

027130 000054 «WORD 

027132 012776 «WORD EM22 

027134 014172 -WORD ERRO 

027136 005037 002402 CLR ITCOUN RESET FURTHER ITERATIONS 
027142 65$: 

027142 10000$: 

027142 104405 TRAP CSESEG 

027144 104404 TRAP C$BSEG 

027146 004737 017672 JSR PC, IRLOCK srt INPUT minty IN RPCS2 
027152 005077 153356 CLR aRPDB WRITE RPDB WITH O'S 
027156 004737 017672 JSR PC, IRLOCK {WAIT FOR IR TO SET AGAIN 


a 


K 10 
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TEST 21 IPCK3 T 
027162 005077 153346 CLR @RPDB 
027166 004737 017706 JSR PC ,ORLOCK 
027172 005777 153336 TST @RPDB 
027176 004737 017706 JSR PC ,ORLOCK 
027202 005777 152326 TST aRPDB 
027206 004737 017000 JSR PC WAIT 
027212 032777 140000 153272 BIT #SC!TRE,a@RPCS1 
027220 0601012 BNE 7$ 
027222 004737 017372 JSR PC,BISEXP 
027226 002512 RPCS1 
30 140000 SC! TRE 
027232 104456 AP CSERHRD 
027234 000055 .WORD 45 
027236 012776 “WORD M22 
027240 014172 ~WORD ERRO 
027242 005037 002402 CLR ITCOUN 
| 027246 032777 000400 153246 67%: BIT #MDPE ,aRPCS2 
027254 001012 BNE 
027256 004737 017372 JSR PC ,BISEXP 
027262 002522 RPCS2 
027264 000400 MDPE 
027266 104456 TRAP — CSERHRD 
027270 000056 .WORD 46 
027272 012776 “WORD M22 
027274 014172 “WORD ERRO 
027276 005037 002402 CLR ITCOUN 
027302 052777 000040 153212 68$: BIS #CLR,aRPCS2 
027310 10001$: 
027310 104405 TRAP — CSESEG 
027312 104404 TRAP CSBSEG 
027314 032777 000010 153242 BIT #B1T3,aRPCS3 
027322 001412 BEQ 
027324 004737 017422 JSR PC,BICEXP 
027330 002564 RPCS3 
027332 000001 BITO 
027334 104456 TRAP CSERHRD 
027336 000057 .WORD 47 
027340 013051 “WORD EM23 
027342 000000 “WORD 
027344 005037 002402 CLR ITCOUN 
027350 69$: 
027350 10002$: 
027350 104405 TRAP  CSESEG 
027352 005337 002402 DEC ITCOUN 
027356 003247 BGT 66$ 
32 027360 L10043: 
027360 104401 TRAP CSETST 


SEQ 0127 


sWRITE RPDB = 0, AGAIN 
;NOW WAIT FOR OUTPUT yy 44 IN RPCS2 
DO A ONE WORD READ OF RP 
iWAIT FOR le woof 10. SET IN RPCS2 AGAIN! 
:D0 A SECOND READ OF RPDB 
;WALT FOR Hy ome 


:T 0 

LOAD FAILING DATA 
FAILING REGISTER 
:BIT UNDER TEST 


RESET FURTHER ITERATIONS 
DID WE DETECT PARITY ERROR? 
sYES, GO-ON 

LOAD FAILING DATA 

FAILING REGISTER 

BIT UNDER TEST 


RESET FURTHER ITERATIONS 
CLEAR OUT THE DEVICE! 


sNOW ets el SEE THAT #BIT3 DID CLEAR 


SLOAB FAILING DATA 
:FAILING REGISTER 
BIT UNDER TEST 


RESET FURTHER ITERATIONS 


ONE LESS ITERATION TO-GO 


; TAKE BRANCH IF NOT DONE 


‘eeu ER ee eee ae RY 
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TEST 22 INTERRUPT TEST # 


| i -SBTTL TEST 22 INTERRUPT TEST #1 
| a 7% Test ie INTERRUPT TEST 1 
| 4 7% RPCS1: RDY (BIT 07) = 1 
| H 3 " ant DY <> 1 
4 i Ll we ERROR MESSAGE (RPCS1: RDY STUCK AT 0) 
| 9 3% SET PROCESSOR pphioniry = 7 DOWNTO THE DEVICE PRIORITY, ONE LEVEL AT A TIME 
10 3% SET RPCS1: Y AND RPCS1: JIE = 1 
4 i IF INTERRUPT" tS RECEIVED 
13 % : poytPut ERROR MESSAGE (RHXX INTERRUPTED TO WRONG PRIORITY) 
19 3% END TEST 22 
17 027362 T22:: 
18 027362 005037 002404 CLR ERRWD1 : CREATE THE MODULE CALLOUT 
19 027366 012737 000002 002406 MOV #B1T1,ERRWD2 ‘FOR THIS T 
20 0275 7% 012737 000012 002402 * MOV #10.,1TCOUN [LOAD THE ITERATION COUNT 
027402 104404 TRAP  (C$BSEG 
22 027404 005037 002462 CLR INTFLG :RESET THE IN TERRUPT STATUS FLAG 
23 027410 052777 000200 153074 BIS #RDY,aRPCS1 :SET RDY = 1 IN RPCS1 
24 027416 032777 000200 153066 BIT #RDY ,aRPCS1 718 IT = 1? 
25 027424 001012 BNE 2 ‘YES, SKIP ERROR DISPATCH 
26 027426 004737 017372 JSR PC,BISEXP LOAD UP THE ERROR POINTERS 
27 027432 002512 RPCS1 :THIS REGIS‘ER 
28 027434 000200 RDY 7 BIT 
29 027436 104456 TRAP  C$ERHRD 
027440 000060 WORD 48 
027442 012776 -WORD €&M22 
027444 014172 -WORD ERRO 
30 027446 005037 002402 CLR ITCOUN zRESET THE ITERATION COUNTER 
31 027452 2$: 
02745 10000$: 
027452 104405 TRAP (C$ESEG 
32 027454 012746 000340 MOV #PRI07,-(SP) 
027460 012746 020630 MOV #INTSRV,-(SP) 
027464 013746 002476 MOV RPVEC,-(SP) 
027470 012746 000003 MOV #3,-(SP) 
027474 104437 TRAP C$SVEC 
027476 062706 000010 ADD #10,SP 
33 027502 012702 000340 MOV #PRIO7,R2 :SET THE PRIORITY TO 7 
34 027506 3$: 
027506 104404 TRAP  C$BSEG 
35 027510 010200 MOV R2, RO 
027512 104441 TRAP  C$SPRI 
36 027514 052777 00N300 152770 BIS #RDY'IE,@RPCS1 ;:FORCE AN INTERRUPT, BUT DON'T HONOR IT! 
37 027522 012727 000020 MOV #20, (PCS+ 
027526 000000 . WORD 
027530 013727 002116 MOV LSDLY,(PC)+ 
027534 000000 . WORD 
027536 005367 177772 DEC -6(PC) 
027542 001375 BNE 74 
027544 005367 177756 DEC -22(PC) 
027550 001367 BNE --20 








38 027552 


027566 
41 027570 
42 027574 
027574 


027574 
43 027576 


49 027624 
027630 
50 027632 
027632 


005737 
001406 


104401 


002462 


002402 
000040 
002500 
000040 


002402 
002476 





152704 


4$: 
10001$: 


L10044: 
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TEST 22 INTERRUPT TEST #1 


INTFLG 
CSERHRD 
49 

pee 
ITCOUN 


CSESEG 
#40,R2 
R2,RPVEC+2 
ACLR,@RPCS2 
ITCOUN 

1$ 

RPVEC,RO 
CSCVEC 
CSETST 


——— ee 


SEQ 0129 


0, WRONG PRIORITY!! 
F ZERO! 


NO ITERATIONS NECESSARY 


REDUCE THE PRIORITY LEVEL 
zAT_THE DEVICE PRIORITY YET? 
sNOT IF HIGHER OR SAME... 

2 NOW 1) at INTERRUPTS 


sONE LESS 
300 UNTIL <= 0 


[7 oo 


@ 
| 
| 


10 
sie RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE $8 SEQ 0130 
INTERRUPT TEST #2 
1 -S8TTL TEST 23 INTERRUPT TEST #2 
7% Test 23 INTERRUPT TEST 2 
4 3% WRITE RPCS2: ¢ R= 
5 i% SE; PROCESSOR PRIORITY = 0 
$ if IF Ccaecst SC) OR (RPDS: ATA)) = 1 
: is OUTPUT ERROR MESSAGE (PERSISTENT ATA OR SC=CANNOT PERFORM INTERRUPT TEST) 
10 7% ENDIF 
11 3% WRITE RPCS1: IE = 1 
\¢ 8 IF oan INTERRUPTS 
6 i : QUTPUT ERROR MESSAGE (RECEIVED FALSE INTERRUPT) 
18 3% END TEST 23 
18 027634 T23:: 
19 027634 012737 016000 002404 MOV #81T10'!B1T11'BIT12, ERRWD1; 4190913 CALLOUT 
20 027642 012737 9097%5 002406 MOV #B81T1'BI1T2'BIT8,ERRWD2;CONTROLLER, CABLE, TERMINATOR 
¢} 067630 012737 Guid 002402 - MOV #10., 1 TCOUN [LOAD THE ITERATION COUNT 
027656 104404 TRAP CS$BSEG 
23 027660 005037 002462 CLR INTFLG sRESET THE INTERRUPTS RECEIVED FLAG 
24 927664 052777 000040 152630 BIS #CLR, ganecse = CLEAR ut THE CONTROLLER 
25 027672 013777 002506 152622 MOV DRVNO, a@RPCS2 [LOAD THE DRIVE NUMBER 
26 027700 032777 160000 152604 BIT pee The SACRE, aRPCS1; DO WE HAVE A SPECIAL CONDITION, MCPE, OR TRANSFER ERROR? 
7 027706 001412 BEQ 2s RO, NO!! 
8 027710 004737 017422 JSR PC,BICEXP [LOAD rhe ERROR POINTERS 
29 027714 002512 RPCS1 THIS REGISTER FAILED, 
30 027716 160000 SC! TRE!MCPE [THIS DATA SHOULD BE CLEAR 
31 027720 104456 TRAP CSERHRD 
027722 000062 eWORD 50 
027724 012562 «WORD £M16 
027726 014172 -WORD ERRO 
32 027730 104432 AP CSEXIT 
027732 000146 .WORD (30045-. 
33 027734 2$: 
027734 10000$: 
027734 104405 TRAP ESEG 
34 027736 012746 000340 MOV #PRI07,-(SP) 
027742 012746 020630 MOV #INTSRV,=(SP) 
027746 013746 002476 MOV RPVEC,=(SP) 
027752 012746 000003 MOV #3,-( 
027756 104437 TRAP CSSVEC 
027760 062706 000010 ADD #10, 
35 027764 104404 TRAP C$BSEG 
36 027766 012700 000000 MOV #0,R 
027772 104441 TRAP C$SPRI 
37 027774 012777 000100 152510 MOV #1E,aRPCS? zARM THE DEVICE, BUT DON'T EXPECT AN INTERRUPT 
38 030002 012727 000020 MOV #20, (PC)+ 
030006 000000 WORD 
030010 013727 002116 OV LSDLY,(PC)+ 
030014 000000 . WORD 
030016 005367 177772 DEC -6(PC) 
030022 001375 BNE .- 
030024 005367 177756 DEC =22(PC) 


maisy 
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TEST 23 INTERRUPT TEST #2 


030030 

39 030032 
40 030036 
41 030040 
030042 
030044 
030046 

42 03005C 
43 Bepoee 


030076 
48 030100 
030100 


005037 


104405 


104436 
104401 


002462 


002402 
000040 152436 
002402 


002476 


3$: 
10001$: 


T 
L10045: 
T 


-720 
INTFLG 
pare 
EM25 
ERRO 
ITCOUN 


CSESEG 
#CLR,ARPCS2 
ITCOUN 


1$ 
RPVEC ,RO 
CSCVEC 


CSETST 


THIS SHOULD = ne a NC INTERRUPTS 
:1S ZERO, TEST 0 


RESET FURTHER ITERATIONS 


sDISARM INTERRUPTS 
; ONE Ae ITERATION 
;I1F > 0, CO AGAIN 


SEQ 0131 . 
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TEST 24 INTERRUPT TEST 


J .SBTTL TEST 24 INTERRUPT TEST #3 
3 % TEST. 24. INTERRUPT TEST 3 
4 3% CS2: CL 
5 :% eT eRe (Si: IE) AND (RPCS1: RDY)) = 1 
‘ :% CLEAR PROCESSOR STATUS 
g ik IF INTERRUPT DOESN'T OCCUR 
: i ouTPut ERROR MESSAGE (DEVICE FAILED TO INTERRUPT) 
4 % END TEST 24 
13 030102 124:: 
14 030102 012737 00001. 002402 MOV #10.,1TCCUN ZLOAD THE ITERATION COUNTER 
15 030110 012746 00034C MOV #PRI07,-(SP) 
030114 012746 020630 MOV #INTSRV,=(SP) 
030120 013746 002476 MOV RPVEC, =< 
030124 012746 000003 MOV #3,-(SP) 
030130 104437 TRAP C$SVEC 
030132 062706 000010 ADD #10,SP 
16 030136 1$: 
030136 104404 TRAP CSBSEG 
17 030140 005037 002462 CLR INTFiC ;RESET THE INTERRUPTS RECEIVED MARKER 
18 030144 052777 000040 152350 BIS #CLRARPCS2 tFLUSH OUT THE CONTROLLER 
19 030152 013777 002506 152342 MOV DRVNO,ARPCS2  :LOAD THE DRIVE NUMBER To AVOID A TRANSFER ERROR! 
20 030160 005737 002500 TST RPVEC+2 iGET THE DEVICE PRIORITY 
21 030164 001002 BNE 2$ :IT'$ > ZERO, SET UP TO LOWER THE PROCESSOR STATUS 
22 030166 005046 CLR =(SP) IT'S AT PRIGRITY 0! 
23 030170 000404 BR :6 
24 030172 013746 002500 2$: MOV RPVEC+2,-(SP)  :GCT one PRIORITY 
25 030176 162716 000040 SUB #40, (SP) [AND LOWER IT 
26 030202 3$: 
030202 012600 MOV (SP)+,RO 
030204 104441 TRAP  C$SPRI 
27 030206 052777 000300 152276 BIS #RDY'IE,@RPCS1 ;FORCE AN INTERRUPT! ! 
28 030214 012727 000020 MOV #20, (PC)+ 
030220 000000 . WORD 
030222 013727 002116 MOV LSDLY,(PC)+ 
030226 000000 WORD 
030230 005367 177772 EC -6(PC) 
030234 001375 BNE 24 
030236 005367 177756 DEC ~22(PC) 
030242 001367 BNE - 
29 030244 005737 002462 TST INTFLG ;1F WE RECEIVED AN INTERRUPT, THIS > 0 
30 030250 003006 BGT :GOT IT, TEST OK! 
31 030252 104456 TRAP  C$ERHRD 
30254 000064 .WORD 5 
030256 013224 “WORD EM26 
030260 000000 “WORD 
32 030262 005037 002402 CLR ITCOUN ZNO ITERATIONS NECESSARY 
33 030266 4$: 
030266 10000$: 
030266 104405 TRAP CSESEG 
34 030270 052777 000040 152224 BIS #CLR,aRPCS2 :NOW " OVE ALL INTERRUPT STATUS 
35 030276 005337 002402 DEC ITCOUN ‘ONE eSS ITERATION TO GO 
36 030302 003315 BGT 1$ :IF 0, DO AGAIN 
37 030304 013700 002476 MOV RPVEC,RO 


rr nn nn nee em nn a ee 
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| TEST 24 INTERRUPT TEST #3 


38 030310 104436 TRAP CSCVEC 

39 030312 012700 000340 MOV #PR107,R0 
030316 104441 TRAP CSSPRI 

40 030320 L10046: 
030320 104401 TRAP CSETST 


D 11 


sSET PRIORITY TO 7 


7 
i 


“mn 
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/TEST 25 BASIC DRIVE TEST 


a a 


d -SBTTL TEST 25 BASIC DRIVE TEST 
3 3% weet . yt! REMOTE REGISTER TESTS)=-BASIC DRIVE SELECT TEST 
¢ % CHE Fs oe SWITCH TEST LOCATION ‘"SwTTST’ 
g 3 én ie EXIT TEST 
R 3% etd MESSAGE ASKING USER TO DISCONNECT THE DRIVE-UNDER-TEST 
y 3% FROM THE MASS3US BY USING THE DISABLE SWITCH 
10 3% THIS TeSi CAN v¢ _BE RUN REMOTELY. 
11 3% SET RPCS2. CLR 
12 3% LOAD THE DRIVE-UNDER-TEST DEVICE NUMBER iNTO RPCS2 
se 3 IF _— 06 (RPDT) <> 0 
15 3% OUTPUT pag MESSAGE (DUAL RESPONSE FOUND) 
16 A OUTPUT FAULT LIST = ANOTHER DRIV® RESPONDING, 
17 3% rie CABLES, DRIVE SELECT, XMIT ERS-RLCEIVERS FL? DRIVE, 
18 33 / 313, TERMINATOR 
ih) 3% EN NTF 
2 3% END TEST 25 
c 
22 030322 T25: 
23 030322 005737 002332 TST SWTTST sSHOULD WE DO MASSBUS INTERFACE SWITCH TEST ? 
24 030326 001002 BNE 1$ sBR IF = 1, YES 
28 030330 104432 TRAP CSEXIT 
030332 00016' -WORD 1L10047-. 
29 030334 1$: 
030334 104450 TRAP C$MANI 
30 030336 103402 BCS 2$ 
351 030340 104432 TRAP CSEXIT 
030342 000150 -WORD 110047-. 
32 030344 2$: sTYPE ‘PLACE INTERFACE SWITCH A12-S0O1 IN DOWN POSITION (L) 
33 030344 104443 TRAP CSGMAN 
030346 000404 BR 10000$ 
030350 002464 -WORD UNABLE 
030352 000120 -WORD TS$CODE 
030354 011607 -WORD MESG13 
030356 000001 -WORD 1 
030360 19000$: 
34 030360 005737 002464 TST UNABLE ;DID OPERATOR RESPOND YES? 
55 0303 003002 BGT 3$ :1F > 0, YES 
36 030366 104432 TRAP CSEXIT 
030370 000122 -WORD 110047-. 
37 030372 3$: 
030372 104404 TRAP C$BSEG 
38 030374 013777 002506 152120 MOV DRVNO,a@RPCS2 ;LOAD hw nes NUMBER 
39 030402 005777 152132 TST @RPDT SLOOK AT THE DRIVE TYPE REGISTER 
030406 001422 BEQ 4$ ; SHOULD "Be ALL 0°S 
41 030410 0137.” 002540 002456 MOV RPDT, TESTRG *FAILING REGISTER 
42 030416 017737 152116 002452 MOV aRPDT, RCVED *FAILING DATA 
3 030424 005037 002454 CLR EXPTED XPECTED DA 
44 0530430 012737 016000 002404 MOV #BIT1IO'BIT11! 4h Tie ERRWD sMARK J11, J12 & J13 FOR CALLOUT 
030436 (12737 030424 002406 MOV #BIT'BIT2!BIT4 ‘BITS, ERRWD2 sMARK RH, CABLE, TERMINATOR, ANOTHER DRIVE 
46 030444 104456 TRAP CSERHRD 
030446 000065 -WORD 53 
030450 012523 -WORD €EM15 
030452 014172 eWORD ERRO 
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EST 25 BASIC DRIVE TEST 


47 Seka 


005737 
*9240 
004737 
000764 
005037 


104401 


002464 
017000 


002464 


4$: 
10001$: 
TRAP 


“ CSESEG 
‘ TRAP  C$GMAN 
BR 0002$ 

.WORD UNABLE 


-WORD 100000 


10002$: 
TSi UNABLE 
BLT 
JSR PC,WAIT 
BR “b 
6$: CLR UNABLE 
L10047: 


TRAP CSETST 


SEQ 013° 


sTYPE "PLACE ...TERFACE SWITCH A12=SO1 IN UP POSITION (L) 


:DID on ar RESPOND YES ? 


IF YES 
SPIN FOR A STALL LOOP 
NOW ASK THE QUESTION AGAIN! 


INITIALIZE THIS 
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_TEST 26 DEMAND AND TRANSFER TEST 


“OOD NOVUEWN-—OVONGUSwN— 


| 

1 

1 

| 1 
1 

| 1 

15 030514 

16 030514 012737 
17 030522 

030522 104404 

18 030524 013777 
19 030532 017737 
; 030540 005/37 


030612 104405 
29 030614 005337 
4 030620 003340 


| 0 

27 030606 005037 
104401 
! 
| 


000012 


002506 
152002 
002452 
020042 


000416 


002402 


002402 


002492 


151770 
002452 


002454 


002406 


-SBTTL TEST 26 DEMAND AND TRANSFER TEST 


33 TEST 26 DEMAND AND TRANSFER TEST 
3% : LOAD THE DRIVE-“UNDER-TEST'S NUMBER INTO RPCS2 
3% READ RPDT REGISTER 
3% IGNORE DATA AND ERRORS 
ie IF —" DOESN'T RESPOND 
3% OUTPUT pre ier. age AND TRANSFER LOGIC NOT « °RKING) 
33 OUTPUT FAULT CABLES, J11 / J15, REMOTE PusSIBILITY oF 
3 : i ot’ CTOD, REGISTER suctet LINES, DISABLE SWITCH, TERMINATOR. 
3% END TEST 26 
T26:: : 
MOV #10.,I1TCOUN ° ;LOAD THE ITERATION COUNT 
TRAP C$BSEG 
MOV ApwAIA oO ~LOAD THE DRIVE NUMBER ry 
MOV wt Ul, acvev ;LOOK AT RPDT 
i _ iIF IT a > 0, DRIVE IS THERE 
MOV #20042 ,EXPTED SCREATE THE CORRECT DRIVE TYPE CONTENTS 
MOV RPDT, R THE FAILING REGISTER 
MOV #B1T7!BIT10'!BIT12, erupt: SET MODULE CALLOUT MASK 
MOV 4BIT1!BIT2'BIT3!B1T8, ERRWD2; FOR BOTH WORLS 
TRAP CSERHRD 
eWORD 54 
-WORD EM22 
eWORD ERT* 
9 CLR IT Uun ;RESET THE ITERATION COUNT 
10000$: 
TRAP CSESEG 
DEC ITCOUN ;ONE LESS ITERATION 
BGT 1$ zIF >0, DO AGAIN 
L10050: 


TRAP CSETST 


A090 


— —  -—) —) 


WWWIWIWWWWNNNNNNNNNNN 
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WW 
oc 


an 
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UNIQUE UNIT UNDER TEST 


-SBTTL TEST 27 UNIQUE UNIT UNDER TEST 


3% TEST 27 UNTOUE UNIT UNDER TEST 
3h : WRITE #46 TO RPCSi FOR THE DRIVE UNDER TEST 
3% WRiTE DATA PATTERN #4 TO RPCS1 FOR ALL OTHER DRIVES ON THE BUS 
3 IF ose. FOR THE DRIVE UNDER TEST <> #46 
3% OUTPUT ERROR MESSAGE (DRIVE SELECT LOGIC FAILURE) 
+ Ey on FAULT LIST: RHXX, CABLE, /11/J13, TERMINATOR 
re END TEST 27 
030624 27:: 
0 300¢s 012737 000012 002402 1$ MOV #10., 1 TCOUN ;LOAD THE ITERATION COUNT 
030632 104404 TRAP CSBSEG 
030634 .13777 002506 151660 MOV DRVNO, gory + THE DRIVE UNDER TEST 
030642 012777 000046 151642 MOV #46,aRPCS1 ;SET SOME COMMAND FUNCTION BITS 
030650 005002 CLR R2 SET UP TO DO ALL DRIVES 
030652 020237 002506 2s: CMP R2,DRVNO ‘DRIVE UNDER TEST? 
030656 001405 BEQ 3$ sIF SO, WE ge WROTE IT. 
030660 010277 151636 MOV R2,aRPCS2 LOAD THIS DRIVE # 
050664 013777 002352 151620 MOV PATT4,aRPCS1 AND WRITE A PATTERN 
030672 005202 3$: INC R2 [NEXT DRIVE 
030674 020227 000010 CMP Re #10 ; DONE 
030700 103764 BLO 31F <10, NO 
030702 013777 002506 151612 MOV ceyNO, @RPCS2 ‘RELOAD tb eer DRIVE UNDER TEST 
030710 012737 000046 002454 MOV #46, EXPiED CREATE DATA FILE 
030716 017737 151570 002452 MOV @RPCS1,2CVED :GET RESULTS 
030724 012702 000046 MOV #46 ,R2 SAND STRIP UNUSED DATA 
030730 005102 COM R2 sFOR A POSSIBLE ERROR REPORT 
030732 040237 002452 BIC R2,RCVED [DATA SHOULD MATCH NOW 
030736 023737 002454 002452 MP EXPTED ,RCVED [DO THE COMPARISON 
030744 001417 8E—Q 4$ z1F EQUAL, IT'S OK 
030746 013737 002512 002456 MOV RPCS1, TESTRG LOG FAILING REGISTER 
030754 012737 012000 002404 MOV #B1T10'BITI2, ERRUD! 7FORM MODULE CALL-OUT 
030762 012737 000406 002406 MOV #B1Tl BIT c!BiT8, ERRWD2 ;BOTH WORDS 
030770 104456 TRAP CSERHR 
030772 000076 eWORD 62 
030774 012454 eWORD EM14 
030776 014172 -WORD ERRO 
031000 005037 002402 CLR ITCOUN ; ITERATIONS = 0 
031004 4$: 
031004 10000$: 
031004 104405 TRAP CSESEG 
031006 005337 002402 DEC ii. CUN ONE LESS ITERATION 
031012 00330; BGT 1$ :D0 UNTIL <= 0 
931014 L ‘0051: 
031014 104401 TRAP CSETST 


_ a — ——--= — - -_— -— -_———--- 
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TEST 28 RPDT REGISTER TEST 


j .SBTTL TEST 28 RPDT REGISTER TEST 
; :% TEST 1 28 TEST DRIVE TYPE REGISTER 
3 ik Loup DRIVE-UNDER-TEST" $ NUMBER INTO RPCS2 
| 4 ik IF RPDT DOESN'T = ONE OF THE FOLLOWING: 20042, 24042 
| 5 $ 
9 7% OUTPUT ERROR MESSAGE (RPO7 NOT FOUND, RPDT = (RPDT CONTENTS)) 
| 10 % OUTPUT FAULT LIST: RHXX, CABLEs, J11/J13, J12, CTOD, RS, MASSBUS, 
| 11 7% : 108. TERM INATOR. 
12 7% ENDIF 
13 2 END TEST 28 
15 031016 T28:: 
16 031016 012737 000012 002402 = MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
031024 104404 TRAP  C$BSEG 
18 031026 052777 000040 151466 RIS #CLR,aRPCS2 :START OUT WITH AN INITIALIZED CONTROLLER 
19 031034 053777 002506 151460 81S DRVNO, aRPCS2 LOAD THE DR i VE # 
20 031042 017737 151472 002452 MOV @RPDT.RCVER [GET RPDT AND STORE IT 
21 031050 012737 020042 002454 MOV #20042,EXF (ED CREATE EXPECTED DATA 
22 031056 032737 004000 002452 BIT #DRO, RCVED :DUAL PORTED? 
23 031064 001403 BEQ 2$ O, IF NOT SET! 
24 031066 052737 004000 002454 BIS #DRQ, EXPTED SET DUAL=POR 
25 031074 023737 002452 002454 2$: CMP RCVED, EXPTED ES DATA MATCH? 
26 0311C2 001417 BEQ 3$ » TEST OK! 
27 031104 013737 002540 002456 MOV DT, TES “LOAD FAILING REGISTER 
28 031112 012737 016200 0024L4 MOV waite BitiOlB eine ERRWD1: CREATE MODULE CALLOUT LIST 
29 031120 012737 000406 00240¢ MOV *BITIiBIT2 "Bry EeRUDS: FOR BOTH MASK WORDS 
30 031126 104456 C$ERHRD 
031130 000067 rooRD 55 
031132 012454 .wOPD = EM14 
031134 014172 .WORD  ERRO 
31 031136 005037 002402 CLR ITCOUN :RESET FURTHER ITERATIONS 
32 031142 3$: 
031142 10C00$: F 
031142 104405 TRAP C$ESEG 
33 031144 005337 002402 DEC ITCOUN ZONE LESS ITERATION 
34 031150 003325 BGT 1$ ; IF >0, DO AGAIN 
35 031152 L10052: 
031152 104401 TRAP = CSETST 
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TEST 29 RPDA READ WRITE TEST 


} -SBTTL TEST 29 RPDA READ WRITE TEST 
3 3% gar RPDA READ WRITE TEST 
4 3% : RITE RPDA WITH DATA PATTERNS 1-4, ONE AT A TIME 
? :% iF ree DATA DOESN'T MATCH EXPECTED 
7 of OUTPUT fone ine ag BIT(S) UNDER TEST DON'T MATCH EXPECTED) 
8 3h OUTPUT FAULT LIST: CA liek STUCK DATA BITS, J11/J15, 
10 3 bw wie STUCK AT 0, jo 8 TERMINATOR 
11 3% pgp RPDA we DATA PATTERN #4 
12 7% IF RPDA DOESN'T = 0 
13 a : THEN 
14 3% OUTPUT Spr MESSAGE — BITS STUCK AT 1) 
15 3% OUTPUT FAULT LIST: RHX CABLES, STUCK DATA BITS, J11/J13, 
1¢ % hs ate" REMOTE POSSIBILITY. OF J8, TERMINATOR 
+ 38 END TEST 29 
20 031154 T29:: 
21 031154 012737 000012 002402 MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
22 031162 012737 016200 002404 MOV #B1T7!BIT10!BIT1 1'BIT12, ERRWD1;CREATE THE MODULE CALLOUT 
23 031170 012737 000406 002406 MOV #BIT1!B1T2‘BIT8, ry FOR BOTH MODULES 
24 031176 004737 016662 1$: JSR PC,SEIZE t THE DRIVE UNDER TEST 
25 031202 004737 017744 JSR PC,SETUP OAD POINTERS 
031206 004256 TST28 ‘FROM T HIS TABLE 
031210 013737 002444 002436 64$: MOV SRCTMP, TEMP SET UP FOR POSSIBLE LOOP 
031216 104404 TRAP C$BSEG 
031220 004737 020034 JSR PC, FLOAT FLOAT THE PATTERN 
031224 000403 BR 65 ‘PATTERN FLOATED OK, SKIP ERROR DSPATCH 
os 1s¢e 013737 002436 002444 658 MOV TEMP ,SRCTMP *RESTORE THE OLD DATA PATTERN FOR ERROR LOOP 
031234 10000$: 
031234 104405 TRAP coos 
031236 005737 002446 TST MASK zIF MASK = 0, WE'nE DONE 
031242 001362 BNE 648 
031244 004737 020330 JSR PC,CONSET ;GET NEXT PATTERN 
031250 005737 002434 TST PATCNT 31F PATTERN COUNT UNDERFLOWED, DONE! 
031254 002355 BGE 64$ sNOT DONE YET, GO-ON 
031256 104404 TRAP C$BSEG 
031260 004737 020202 JSR PC, COMPAR sWRITE THE NEXT PATTERN 
031264 002352 PATT4 sWHICH IS PATTERN #4 
031266 10001$: 
031266 104405 TRAP CSESEG 
031270 104404 TRAP C$BSEG 
031272 104404 TRAP C$BSEG 
031274 004737 020202 JSR PC ,COMPAR 3D0 ANOTHER DATA COMPARISON 
031300 002350 PATT3 USING PATTERN #3 
031302 10003$: 
031302 104405 TRAP CSESEG 
031304 004737 017572 JS PC,LDZERO sWRITE RPDA TO O TO CLEAR IT! 
031310 10002$: 
031310 104405 TRAP CSESEG 
26 031312 005337 002402 DEC ITCOUN 7 ONE LESS ITERATON 
27 031316 003327 BGT 1$ *DO UN*'! <= 0! 
28 031320 L10053: 
031320 104401 TRAP CSLIST 


ce aD 


—_——————_———_ 
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‘TEST 30 PARITY BIT TRANSITION TEST 


! 
| 


} .SBTTL TEST 30 PARITY BIT TRANSITION TEST 
3 7% TEST. 30 PARITY BIT TRANSITION TEST 
| 4 7% RITE RPDA USING DATA _PATTERN 4 
| 3 ik iF ¢¢TRE) OR (MCPE)) = 1 
? 3% OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR) 
| 8 2% Ep outPut FAULT LIST: RHXX, CABLES, J11/J13, J12, JO8, TERMINATOR 
| 10 3% WRITE RPDA USING DATA PATTERN #1, ONCE. 
| 1 ik IF ¢¢TRE) OR (MCPE)) = 1 
13 7% OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR) 
1 ik np poyrpur FAULT LIST: RHXX, CABLES, J11/J13, iE JO8, TERMINATOR 
18 3% END TEST 30 
18 031322 T30:: 
19 031328 012737 000012 002402 - MOV #10.,1TCOUN ZLOAD THE ITERATION COUNT 
031330 104404 TRAP  C$BSEG 
21 031332 012703 002352 MOV APATTG,R3 :GET THE ZEROS PATTERN 
22 031336 012702 000002 MOV #2,R2 :DO THE OPERATION TWICE 
23 031342 004737 016662 JSR PC, SEIZE zFLUSH ERRORS AND GET THE DRIVE 
24 031346 014377 151146 2$: MOV -(R3), @RPDA LOAD THE PATTERN 
25 031352 004737 017000 JSR PC WAIT :WAIT FOR ANY ERRORS TO SET 
26 031356 032777 060000 151126 BIT #TRE 'MCPE ,aRPCS1: ERRORS? 
27 031364 001420 BEQ 3$ :NOT IF =0, TEST OK! 
28 031366 004737 017422 JSR PC,BICEXP ‘FORM DATA’ REPORT 
29 031372 002512 Pp FORM DATA REPO 
30 031374 060000 TRE !MCPE HESE BITS FAILED TO BE CLEAR 
31 031376 012737 016200 002404 MOV #B1T7!B1T10 iBITiileiti2e ERRWD1;FORM MODULE CALLOUT MASK 
32 0314% 12737 000406 002406 MOV #B1T1'BIT2'BIT8,ERRWD2;BOTH WORDS 
33 03141< 104456 TRAP = C$SERHRD 
031414 000070 . WORD 
031416 013051 -WORD £EM23 
031420 014172 .WORD ERRO 
34 031422 005937 002402 CLR ITCOUN :RESET THE ITERATON COUNT 
35 031426 005743 3$: TST =(R3) :MOVE POINTER BACK 
36 031430 005302 DEC R2 £00 SECOND TIME 
37 031432 003345 BGT 2$ F R2=0, DONE 
38 031434 10000$: 
031434 104405 TRAP  C$ESEG 
39 031436 005337 002402 DEC ITCOUN ZONE LESS ITERATION 
40 031442 003332 BGT 1$ zIF <= 0, DONE!! 
41 031444 110054: 
031444 104401 TRAP (C$ETST 


eo - - _— ee ee — -—_— - -—-- 
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TEST 31 FLOATING DATA PARITY TEST 


-SBTTL TEST 31 FLOATING DATA PARITY TEST 


1 
: 2 
3 % TEST ail FLOATING ONES AND ZEROS PARITY TEST 
4 :% A USING DATA PATTERNS 1 TO 9, ONE AT A TIME 
2 i P PAR = 1 AFTER ANY WRITE OR ANY READ TO RPDA 
7 7% OUTPUT E“ROR MESSAGE (DETECTED FALSE PARITY ERROR) 
3 3% Len tAULT LIST: RHXX (PARITY NETWORK), DRIVE (PARITY NETWORK), J12, JO08. 
10 % END TEST 31 
12 031446 T31:: 
13 031446 012737 000012 002402 ~ MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
031454 104404 TRAP  C$BSEG 
15 531456 012702 000011 MOV #9. ,R2 7D0 FOR 9 Peattens 
16 031462 012703 002344 MOV #PATT1,R3 [GET FIRST PATTERN 
17 031466 004737 016662 JSR PC, SEIZE ‘FLUSH ERRORS AND GET THE DRIVE 
18 031472 012377 151022 23: MOV (R3)+,aRPDA SWRITE PATTERN iO R 
19 031476 032777 000010 151022 BIT #PAR,@RPER1 :PARITY ERROR? 
20 031504 001006 BNE 3$ SIF =1, YES = IT'S NOT OK 
21 031506 005777 151006 TST @RPDA “READ THE Screven JUST WRITTEN 
22 031512 032777 000010 151006 BIT #PAR ,ARPER1 :DID READ CAUSE ERRORS? 
23 031520 001420 BEQ 4 F PAR = 0, NO! 
24 031522 004737 017422 3$: JSR PC,BICEXP tFORM DATA REPORT 
25 031526 002526 RPER1 * FAILING REGIST ER 
26 031530 000010 PAR ‘THIS BIT FAILED TO CLEAR 
44 031532 012737 004200 002404 MOV #BiT7'BIT11 ERRWD1; FORM MODULE CALL OUT MASK 
8 031540 012737 000002 002406 MOV #BIT1,ERRWD2  ;BOTH WORDS 
29 031546 104456 TRAP  CSERHRD 
031550 000071 .WORD §7 
031552 013051 “WORD = EM23 
031554 014172 “WORD ERRO 
30 031556 005037 002402 CLR ITCOUN sRESET gine ITERATIONS 
31 031562 005302 4$: DEC R2 REDUCE I ERATIONS 
32 031564 003342 BGT 2$ :>0, DO AGAIN... 
33 031566 10000$: 
031566 104405 TRAP  C$ESEG 
34 031570 005337 002402 DEC ITCOUN ZONE LESS ITERATION 
35 031574 003327 BGT 1$ SIF <= 0, DONE 
36 031576 L10055: 
031576 104401 TRAP _CSETST 





An 


a a rr ee 
| 


| 
| 
| 
| 
{ 
i 


2 
TEST 


~ 
3 


4 
5 
GS 
é 
S 
10 
11 
12 
13 
14 031600 
15 031600 
16 031606 
17 031612 
18 031620 
19 031626 
20 031632 
21 031640 
031640 
22 031642 
23 031646 
24 031652 
25 031656 
26 031660 
27 031664 
28 031666 
29 031672 
30 031674 
31 031700 
32 031702 
33 031706 
34 031710 
35 031714 
36 031716 
37 031722 
38 031724 
031724 
031724 
39 031726 
40 031732 
41 031734 
031734 


000751 


104405 
005337 
003342 


104401 


002360 


002512 
002440 
020202 
002520 
000006 
002544 
000024 
002546 


000002 


002402 





002450 


002404 
002406 


002402 
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2 REGISTER SELECT TEST #1 


SEQ 0142 


-SBTTL TEST 32 REGISTER SELECT TEST #1 
a z E DATA PATTERN #7 TEST 1 


Be Ge Ss Se Oe Os Os Os Se hs 
FLFL TFL FL TL TLTLFLTLTL 


T32:: 


1$: 


2$: 


3$: 


4$: 


5$: 
10000$: 


L10056: 
T 


ti ne Tt” RPOF, ONE AT A TIME. 


ST 
IF — UNDER TEST DOrSN* i “MATCH TEST DATA 


: ENDIF 
END TEST 32 


PATT7,MSK 


#B81T7!B1T10!B 
#B1T1!BIT2!B1 
EIZ 


PC, SEIZE 
#10., 1TCOUN 
CSBSEG 
RPCS1,R1 
R1, SNK 
PC; COMPAR 
R1,RPDA 

3$ 
#6,R1 

$ 

R1,RPOF 
#24,R1 
R1,RPDC 

5$ 
#2, R1 
2$ 

CSESEG 
ITCOUN 

1$ 


CSETST 


—— 





OUTPUT ERROR MESSAGE (BIT(S) FAILED TO SET) 
_ FAULT LIST: 


RHXX, CABLES, J11/J13, J12, JO8, TERMINATOR 


epee shi MASK 


SED BITS = 1 
iri tBiti2, ERRWD1; CREATE THE MODULE CALLOUT 
T8, rire FOR BOTH MASKS 
H_ERRORS AND GET THE DRIVE 
‘LOAD THE ITERATION COUNT 


GET THE FIRST ADDRESS 
[LOAD TEST avd hdl POINTER 
HE COMPARISON 


700 TH 

USING THIS DATA 

SEE CURRENT REGISTER 

WE ALREADY pte RPCS1 & RPDA! 
300 RPDA NEXT 


:DID WE DO RPOF? 
:YES, SKIP NEXT 
:D0 # RPOF NOW 
;GO! 

; DONE? 

z1F EQUAL, YES 
+2 RPDC NOW! 


ONE LESS {TenAT son 
TIF <= 0, DONE! 


lee 
be 
| 


ae 


1770 
1772 


WN —CDONOUSWN—| OVOONAUSWN—OCVDONOUSWN— 
WWWWWWNWNWNWWNWWWW 
at) _ 
oO 
Nm 


NM 
So 
S 
o 


Whonrnrnn— 


mons ee eRe eS ae SRR NININUNN te es 
w oOo 


O90 BONOUSWN—OOONOU 


WIWNWWWNWNWWNWNWNWWNWNWWWw 
Pongsnonononononononony Nm Nm 
ek ed od os td ed ed 


ooo 
par par pars 
Wwror 


3 


Rw 
SNUNWSS ANNNN 


o-oo°0o°0o— oO 
=—Ofn—— 
WNINWWOWh 


104405 
005337 
003316 


104401 


004272 
002440 
150432 
002440 
000000 


002524 


016662 


004272 


020202 
002440 


002402 
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REGISTER SELECT TEST #2 


002404 
002406 


002402 


002546 


002546 


SEQ 0143 


-SBTTL TEST 33 REGISTER SELECT TEST #2 
3% a? 4 ahhh dsttchers T TEST 2 


37% 
3% USE REGISTERS: RPCS1 RPDA. RPDC, RPOF, ONE AT A TIME. 
:% WRITE ALL OTHER REGISTERS W "Ss 
ik IF WRIT ING ALL OTHER REGISTERS WITH O°S CHANGED THE REGISTER UNDER TEST 
7% OUTPUT ERROR MESSAGE (REGISTER SELECT LINES CROSSED) 
i ti yout FAULT LIST: RH11, CABLE, J11/J13, J12, JO8, TERMIWATOR 
3% END TEST 33 
T33:: 
MOV #B1T7'BIT'O! 8111181712, ERRWD1 ; zCREATE THE MODULE CALLOUT 
MOV #B1T1'BI1T2'BI TB, ERRWD BOTH MASKS 
MOV PATI7,R2 GET The TEST PAT TERN 
JSR PC, SEIZE [GET THE DRIVE, FIRST FLUSH ERRORS! 
o MOV #10., 1TCOUN ‘LOAD THE ITERATION COUNT 
TRAP  C$BS 
MOV grees, R1 :GET FILE OF REGISTERS 
2$: MOV @(R1)+.SNK 3GET THE TEST REGISTER 
MOV R2,aSNK WRITE THE TEST PATTERN TO THE REGISTER 
CMP SNK, RPDC ‘DONE WRITING REGISTERS YET? 
BLO $ [NOT DONE YET, DO MOR 
MOV #20.,R3 [GET THE ITERATION 
MOV #TST33,R1 :GET FILE OF REGISTERS AGAIN 
MOV RPCS1_R4 [GET START OF REGISTER FILE 
3$: CMP R4,a(R1) i SHOULD WE CLEAR wits REGISTER? 
BEQ 5$ tI1F THEY MATCH, 
CLR (R4)+ [WRITE THIS REGISTER TOA 0 
CMP R4,RPDS 201 WE J JUST WRITE RPCS2? 
JSR PC, SEIZE 3GET THE DRIVE AGAIN! 
4$: DEC R3 SREDUCE THE ITERATION COUNT 
BGT 33 :DO UNTIL EQUAL TO 
BR 6$ STAKE THIS BRANCH WHEN DONE.. 
5$: CMP (R4)+,(R1)+ :POP THE POINTERS 
6$: MOV #TST33,R1 [GET FILE REGISTERS AGAIN 
MOV R2,MSK [GET THE TESTING PATTERN 
COM MSk [DON'T CARE BITS EQUAL 1 
7$: MOV a(R1)+, SNK [GET THE RESULTS 
JSR PC, COMPAR [CHECK THE DATA FOR CORRECTNESS 
PATI7 ZUSING THIS DATA PATTERN 
8$: CMP SNK ,RPDC [DONE YET? 
BLO 7$ NOT YET, ir LOWER 
10000$: 
TRAP CS$ESEG 
DEC ITCOUN :ONE LESS ITERATION 
BGT 1$ TIF <= 0, DONE! 
110057: 
TRAP C$ETST 


; 


Am 
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TEST 34 F .R1 DATA T 


2136 012737 


MEW)" OVWVONAULSWN—OOONOUESWN— 


Ni RIRIIID 2 St 


2154 012737 
32162 004737 


206 013737 


032214 104405 


032244 002352 
032246 104405 


032260 002350 


032262 104405 
032264 004737 


032270 104405 
26 032272 005337 
44 036506 003331 


000200 


000012 
017744 
002444 
020034 
002436 


002446 
020330 
002434 


020202 


020202 


017572 


007402 


Pe rn eee 


002404 


002402 


002436 


002444 


-SBT7L TEST 34 RPMR1 DATA TEST 


32 ae 34 hy DATA TEST 
3% USE DAT Acer NS 1 TO 9, ONE AT A TIME 
33 B1iS TO TES 0 15 
% IF ta DOESN'T MATCH TEST DATA 
3% OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST FAILED TO SET) 
37% OUTPUT FAULT LIST: J08 
3h ELSE 
7% WRITE RPMR1 = 0 
i IF RPARI <0 
3% OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST FAILED TO CLEAR) 
3% OUTPUT FAULT LIST: J08 
3% : +: ENDIF 
3% : ENDIF 
3% END TEST 34 
734: 
MOV #B1T7,ERRWD1 : CREATE ne MODULE CALLOUT 
CLR ERRWD2 R BOTH MASKS 
JSR PC, SEIZE FLUSH ERRORS AND GET THE DRIVE 
‘. MOV #10.,1TCOUN ‘LOAD THE ITERATION COUN. 
JSR PC, SETUP LOAD 1/0 POINTERS 
TST34 sFROM T HI TABLE 
64$: may SRCTMP, TEMP ‘SET UP “OR POSSIBLE LOOP 
ThAP C$BSEG 
JSR PC,FLOAT zFLOAT THE PATTERN 
BR 65$ yPATTERN FLOATED OK, SKIP ERROR DSPATCH 
oon MOV TEMP, SRCTMP sRESTORE THE OLD DATA PATTERN FOR ERROR LOOP 
10000$: 
TRAP CSESEG 
TST MASK ;IF MASK = 9, WE'RE DONE 
BN! 64$ 
JS. PC,CONSET sGET NEXT PATTERN 
TST PATCNT IF PATTE \N COUNT UNDERFLOWED, DONE! 
BGE 64$ SNOT DON. YET, GO-ON 
TRAP CSBSEG 
JE2 PC, COMPAR zWRITE THE NEXT PATTERN 
PA 14 sWHICH IS PATTERN #4 
10001$: 
TRAP  C$ESEG 
TRAP $BSEG 
TRAP SBSEG 
JSR 'C, COMPAR :DO ANOTHER DATA COMPARISON 
PATT3 [USING PATTERN #3 
10003$: 
TRAP  C$ESEG 
JSR PC, LDZERO zW°ITE RPMR1 TO 0 TO CLEAR IT! 
10002$: 
THAR CSESEG 
DEC ITCOUN sONE LESS ITERATION 
BGT 1$ s1F <= 0, DONE 
L10060: 


| 
| 
| 
| 
| 
| 


TEST 34 RPMRT 


.E/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE ba? 1 
DATA TEST 


032300 104401 TRAP CSETST 


e--- - - —- —- 


a a a a ee ee 


SEQ 0145 


-—-- —- ——- ——_- SS 


| 


VIEW 0 OD NOAOULSWN—OOONOUSWN— 


NONONONONONY @ 2 2 


26 


34 032302 005037 002466 
35 032305 012737 000012 


14 1 
37 032316 013777 002506 


41 032346 052777 100000 
2356 152737 000377 
2364 0025 


47 032406 032777 100000 


49 032416 15<°37 000377 
50 032424 005757 002466 


032432 012737 004000 
2440 022737 000377 


2446 
32450 005037 002406 
32454 105737 002466 


| channel nne nner RneneEREEEReeeneeeaneee aneeEneeeannenenteemmenenmnmenteetieentteemnnentennaaa 


NOWWA AWOo- 


002404 
002466 
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TEST 35 MASSBUS INTIALIZE DRIVE CLEAR TeST 


-SBTTL TEST 35 MASSBUS INTIALIZE DRIVE CLEAR TEST 


Be Re Be Be Oe Be Oe Oe Oe Oe Be Oe Oe Oe 
TRF TAT FL TL FL TL TL TL FL TL TL TL TFL TL TL FE TL TL FL TL TFL TL TO TL FL FLT 


Be Se Ge Se Be Se Se Be Se Ge Se Se Se Be & 


TEST 35 MASSBUS INITIALIZE/DRIVE CLEAR RPMR1: DMD BIT TEST 
: SET RPMR1: DMD = 1 


THE 
— THE EVENT 
SET RPMR1: OMD = 1 AGAIN 
i DRIVE —— COMMAND 
IF RPMR1: DMD = 0 
TH HEN 
. THIS EVENT 
IF =" DMD DIDN'T CLEAR WITH EITHER EVENT 


THEN 
OUTPUT ERROR MESSAGE (RPMR1: DMD NOT CLEARED BY RPCS2: CLR OR DRIVE CLEAR) 
wie FAULT LIST: J12, J08. 


ENDI 
IF RPMR1: OMD IS CLEARED BY DRIVE CLEAR COMMAND, BUT NOT RPCS2: CLR 


THEN 
OUTPUT ERROR MESSAGE (RPMR1: CLEARED BY DRIVE CLEAR BUT NOT RPCS2: CLR) 
we FAULT LIST: J12, CABLE, RHXX. 


ENDI 
IF oa" DMD CLEARED BY RPCS2: CLR BUT NOT DRIVE CLEAR COMMAND 


OUTPUT ERROR MESSAGE (RPMR1: CLEARED BY RPCS2: CLR BUT NOT DRIVE CLEAR COMMA 
OUTPUT FAULT LIST: J11, J12. 


: ENDIF 
END TEST 35 


_ 
Ww 
wn 
ee 


—) 
wn 
ee 


2$: 


3$: 


CLR ERST'T sERROR_ STATUS=0 FOR START-UP 
MOV #10. , ITCOUN LOAD THE ITERATION COUNT 


TRAP C$BSEG 
MOV DRVNO,@: ~S2 ;LOAD_ THE — 


BIS #DMD,aRP ° SET RPMR1 

BIS #CLR,@RF :TRY TO CLEAR IT yh A CONTROLLER CL® 
MOV DRVNO,@h RELOAD THE + nal UMBER 

BIT POMD-aRPMRI” :DID IT CLEAR 

BEQ es >YES, SKIP NEXT 

BISB #377 ,ERSTAT MARK THIS he STATE 

MOV DRVNO, aRPCS2 ;LOAD THE DRIVE # 

BIS #DMD , @RPMR1 3SET RPMR1-DMD=1 


MOV WORCLR,@RPCS1 ISSURE A DRIVE CLEAR COMMAND 
BIT son. ,ARPMRI :o1t DMD CLEAR? 


BEQ F YES 

BISB EE tae 1 "MARK" re FAILED STATE 

TST : ‘EST FASS? 

BEQ s sIF 0 YES 

MOV #BIT11, eenvot [LOAD PART OF THE nome CALL OUT 

CMP #377, ERSTAT NOW DETERMINE WHAT FAILED 

BEQ 5$ ;DRIVE CLEAR COMMAND WORKED, — CLR FAILED 
CLR ERRWD2 FORM FURTHER MODULE CALL-OUT 

"STB ERSTAT SFURTHER CHECK RESULTS 


ee ae 


T 35 


“wn 


57 032460 


6) 


SALA 


003256 
104401 


000200 
012000 
000006 


100v00 


002402 


002466 
007402 


002404 
002404 


002406 
00245€ 


002452 





4$: 
5$: 
6$: 


7$: 
10000$: 


L10061: 
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MASSBUS 'NTIALIZE DRIVE CLEAR TEST 


SEQ 0147 
4$ ;RHCLR WORKED, DRIVE CLEAR FAILED 

WBIT7, ERR) 1 :NOTHING WORKED, DRIVE CLEAR OR RHCLR 

oe IT10!B1T12, rERRUDI | zCREATE _ CALL-OUT 

#61T1!B1T2, ERRUDE. SCREATE MO! iE ,CALL-OUT 


RPAR1, TESTRG FORM °T PORT 
EXPTED SEXPECICD DATA 


#DMD,,RCVED SRECEIVED DATA 
CSERHRD 

61 

EM23 

ERRO 

ITCOUN 3NO ITERATIONS 
CSESEG 

ERSTAT sERSTAT=0 
ITCOUN ONE Mss ITERATION 
1$ TIF <= 0, DONE! 
CSETST 


32562 012737 
$2570 104404 


FWNH—OCOCONOUSWN|O ODONAUSWNH—OOONOUSWN- 
So 


WWIWINIWIIDIPOPINPIPINIPINIPIN —_- OO SS 


03 
35 032702 005037 


0 104405 
37 032710 005337 
38 032714 003325 


2716 104401 


000012 


016662 


000010 


000010 
000001 


000001 
002452 


pico 
000° °5 


002402 


0024( ? 


002402 


002456 


147704 


002452 
147712 


002452 


902404 
002406 


~ SBTTL 


Sete Se Ge Se Se Ge Se Se & 
TRIL IL TL TL TL PLTLFLTL TL 


=_ « 
nw 
ee oa 


2$: 


3$: 


4$: 
10000$: 


L10062: 
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36 PARITY INITIALIZE TEST 


TEST 36 P/RITY INITIALIZE TEST 
vest 76 Ax! cesT. TEST 
iF (RPER1: PAR) = 1 
: OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR) 


OUTPUT FAULT LIST: J12, JO9, J10. (CURRENT STATE OF 2901 = ?? ) 


ENDIF 
IF 8 ILF) = 1 


TH 
OUTPUT ERROR MESSAGE (DETECTED FALSE pies FUNCTION ERROR) 


iy pourra FAULT LIST: J12, JO9, J10, (2901 

END TEST 36 

MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
TRAP — C$BSEG 


JSR PC, SEIZE GET CONTROL OF TH. DRIVE 
MOV RPER1, TESTRG FORM REPORT DATA 

CLR EXPTED EXP TECTED=0 

CLR RCVED ;RECEIVED=? 

BIT #PAR ,QRPER1 t1S PARITY ERROR=1? 

BEQ 2s TIF 

BIS #PAR,RCVED [MARK THE ERROR 

BIT #ILF ,A@RPER2 :1S ILLEGAL FUNCTION SET? 
5€Q 3 iF 0. NO 

BIS #ILF ,RCVED K IT! 

TST RCVED ERRORS? 

BEQ 4$ zI1f 0, TEST PASSES 

MOV #B1T10!B1T12,ERRWD1 ;FORM MODULE CALLOIT LIST 
MOV #BIT1'BI TD ER RWD2 ;BOTH WORDS 

TRAP CSERHRD 

-WORD 63 

-WORD €EM23 

WORD ERRO 

CLR ITCOUN NO ITERATIONS 

TRAP CSESEG 

DEC ITCOUN ONE LESS ITERATION 

BGT 1$ 31F <= 0, DONE 


TRAP CSETST 


SEQ 0148 


wPe 
NO 


OW DNAUEWN OC ODNOUEWH 
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PARITY ERROR DETECTION TEST 
-SBTTL TEST 37 PARITY ERROR DETECTION TEST 


MONMPONMPM VRN NA See oo 


WHO CONOULWN— Oo 


ues 


SEK SWW 
SW -OOONOuU 


|r IRA iain meine cman ae 


i TEST 37, PARITY ER ERROR DETECTION TEST 
7% ISSUE A chown ILLEGAL FUNCTION 
i IF CRPERT ILF = 1 AND RPER1: PAR = 0) 
% OUTPUT ERROR MFSSAGE (PARITY ERROR NOT DETECTED: 
if % yo oyrrut FAULT LIST. J12. 
i IF ¢(RPERT ILF AND RPER1: PAR) = 1 OR = 0) 
7% OUTPUT ERROR MESSAGE (UNKNOWN FUNCTIONAL SEQUENCE) 
i 3% wooyrrut FAULT LIST: JO9, J10, J12, (2901 GONE ??) 
3% END TEST 37 
32720 T37:: 
32720 012737 000012 002402 - MOV #10.,1TCOUN ZLOAD THE ITERATION COUWT 
32726 104404 TRAP  C$BSEG 
32730 004737 016662 JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
32734 052777 000020 147560 BIS #PAT ,aRPCS2 ‘INVERT PARITY, FORCE ERRORS!! 
32742 01277/ 000046 147542 MOV 6, aRPC SLOAD AN ILLEGAL FUNCT.ON CODE (WITHOUT ScTTING GO) 
012737 000010 002452 MOV #PAR ,RCVED [FORM EX°> CTED DATA 
13737 092452 002454 MOV RCVED, sEXPTED ZIN CASE OF AN ERROR 
005037 002466 CLR ERSTA RESET STATUS MARK 
004737 017000 JSR PC, vAIT SSTALL FOR SOME SETTLE TIME 
032777 000001 147524 BIT #ILF ,aRPER1 :DID ILLEGAL FUNCTION SET? 
01406 BEQ 2$ ‘IF NOT, GO ON 
052737 000001 002452 BIS #ILF,RCVED ‘LOG THIS ERROR IN THE RECEIVED BUFFER 
112737 000377 002466 MOVB 4#377.ERSTAT [MARK THIS FAILURE 
032777 000010 147509 2$: BIT #PAR,a@RPER1 :D1D PARITY ERROR SET? 
001006 BNE 3$ 0, N 
042737 000010 002452 BIC #PAR,RCVED 2106 FAILING RESULT 
112737 000377 002466 MOVB #377 ZERSTAT SPARK THIS FAILURE 
00573; 0C7’66 3$: TST ERS * ERRORS? 
001425 BEQ ego :1F 0, NO 
013737 002526 002456 MOV RPER1,TESTRG GET FAILING REGISTER 
012737 004000 002404 MOV weittt, ERRWD1 ZAND | FORM MODULE CALL-OUT 
005037 002406 CLR ERRWv2 [BOTH WORDS 
72 023727 002466 000377 CMP ERSTAT #377 ILLEGAL FUNCTION ONLY SET? 
00 001403 BEQ 4$ F MATCH, THAT WAS ONLY ERROR 
02 052737 001400 002404 = BIS #BiT8!BITO,ERRWD1 :FORM REST OF CALL OUT 
10 104456 TRAP  CSERHRD 
12 000100 .WORD 64 
14 012454 “WORD EM14 
16 014172 “WORD  ERRO 
20 005037 002402 CLR ITCOUN ZNO ITERATIONS NECESSARY 
24 ,v000$: 
24 104405 TRAP  CSESEG 
26 005037 002466 CLR ERSTAT ZERSTAT=0 
32 905337 002402 DEC ITCOUN ‘ONE aLESS ITERATION 
36 003273 aaa BGT 1$ SIF <= 0, WE'RE DONE!! 


———~— a a ees ee ee Ss - — ee 


a 


H 
cre RPO7 FE/HOST ISOLATOR MACRO V04.00 1=-JAN-83 13:37:00 PAGE 72-1 


PARITY ERROR DETECTION TEST 
033140 104401 in TRAP CSETST 


12 


SEQ 0150 


mrmins 


12 
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TEST 38 CORRECT PARITY TEST 


012737 
104404 


AU & & 


CONAOUSWN—OOONA NEWCO OONOUSWwN— 
oonn 
o 
— 
~m 
Nm 
~N 
N 


POMONINPOAININPONPONR 2 ee Sa OO OS 


33 033242 013737 
34 033250 017737 
35 033256 005037 
36 033262 012737 
37 033270 012737 
38 033276 194456 

033300 000101 

033302 013051 

033304 014172 
39 033306 005037 
40 033312 

033312 

033312 104405 
41 033314 005337 
42 033320 003313 
43 033322 

033322 104401 


000012 
016662 
poeane 


060000 


017000 
000010 


017422 
002526 


000406 


002402 


002402 


002402 


147306 


14724 


002456 
002452 


002404 
002406 


» SBITL 


2$: 


3$: 


4$: 


5$: 


6$: 
10000$: 


L10064: 


TEST 38 CORRECT PARITY TEST 
TEST 38 CORRECT PARITY TEST 
: LOAD DATA PATTERNS 1 TO 4 INTO von” ONE AT A TIME 
READ RPDA AFTER EACH WRITE FUNCTION 
IF i = MCPE) OR (RPCS1: TRE) OR (RPER1: PAR)) = 1 


OUTPUT ERROR MESSAGE (PARITY LOGIC MALFUNCTION) 
OUTPUT FAULT LIST: J11, J12, J13, RHXX, CABLE, TERMINATOR 


: ENDIF 

END TEST 38 

MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
TRAP CS$BSEG 


JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
MOV #PATT1,R2 !GET THE PATTERN ADDRESS 

MOV #4,R + AND THE OVERALL ITERATION COUNT 
MOV (R2)+,aRPDA 3WRITE T HE D 

TST @RPDA ;READ THE RECISTER 

BIT #MCPE!TRE,a@RPCS1 ; ERROR? 

BNE 3$ z1F <>0, YES! 

JSR PC WAIT STALL FOR SOME SETTLE TIME 

BIT #PAR, ARPER1 ;PARITY ER ROR? 

BNE 4$ F< 

DEC R1 + ONE Tess. ITERATION 

BGT 2$ 31F >0, NOT FINISHED 

BR 6$ "GE 

JSR PC,BICEXP ‘FORM UP THE * FAILING DATA 

RPCS1 [THIS REGISTER 

MCPE ! TRE THESE BITS FAILED TO CLEAR 

BR 5$ ORT T 


SREPORT THE ER 
MOV RPER1,TESTRG | °GET ADDRESS OF FAILING DATA 
MOV @RPERI ,RCVED GOT FAILED RESUL Ts 

CLR EXPTED M EXPECTED DAT 

MOV eBITIO!BIT11!BITi2. PRRUD FORM noDULE CALL-OUT 
MOV #e1T1 8112/8178, ,ERRWD2 BOTH WORDS 


- WORD 

~WORD EM23 

-WORD ERRO 

CLR ITCOUN NO FURTHER ITERATIONS 
TRAP CSESEG 

DEC ITCOUN :ONE LESS Dida e a 
BGT 1$ cIF <= 0, DONE! 


TRAP CSETST 


QViFWN$—O OCONOUSWN—ODOONG VSwh 
Ww 
Ww 
Ww 
Ww 
S 


NOMEN NONINOND 3 


SRNo nus 
SOASkMOO Sf 


012737 
104404 
0 


005037 


104405 
005337 
003330 


104401 


000012 
016662 
040000 
017422 
002406 
004000 
147130 
147146 
147142 


002402 


002402 


002402 


147156 


002404 
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TEST 39 CLEAR COMPOSITE ERROR TEST 


-SBTTL TEST 39 CLEAR COMPOSITE ERROR TEST 


% TEST. 39) CLEAR COMPOSITE ERROR TEST 
3% : PCS2: CLR = 1 
i iF ‘ep PDS: ERR = 
ik If CcRpent = 0) AND (RPER2 = 0) AND (RPER3 = 0)) 
i ; ouTPut ERROR MESSAGE (DETECTED A PERMANENT ERROR) 
i ‘ OUTPUT ERROR MESSAGE (DETECTED COMPOSITE ERROR) 
i 3 QUTPUT FAULT LIST: J12 
:% END TEST 39 
39:: 
MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
" TRAP  C$BSEG 
JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
BIT #ERR,ARPDS :DID WE RECEIVE A COMPOSITE ERROR? 
BEQ 4 TEST OK 
JSR PC,BICEXP {FORM UP ERROR REPORT 
RPDS 3 THIS REGIST 
ERR STHIS BIT FAILED TO CLEAR 
CLR ERRWD2 SCREATE MODULE CALL OUT 
MOV #BIT11,ERRWD1 :BOTH WORDS 
Ist QRPERT :DID WE HAVE A DETECTABLE HARDWARE BUG? 
Ist ARPER2 :D1D WE HAvE A DETECTABLE HARDWARE BUG?? 
TST ARPER3 ‘DID WE HAVE A DETECTABLE HARDWARE BUG? 
BNE 2$ ‘IF NOT 0, YES 
TRAP — C$EA:HRD 
.WORD 66 
“WORD M42 
“WORD ERRO 
= BR 3$ :SKIP NEXT MESSAGE 
’ TRAP — CSERHRD 
.WORD 67 
“WORD EM1 
“WORD ERRO 
38: CLR ITCOUN :NO FURTHER ITERATIONS NECESSARY 
10000$: 
TRAP  C$ESEG 
DEC ITCOUN : ONE LESS ITERATION T0-GO 
BGT 1$ [IF >0, DO AGAIN 
L10065: 


TRAP CSETST 


rinses 


RISWN—SCOdBNAOUS WM OCVONAUSWN—OVONAUSwh— 


WWWWIWIWIWINONONPONINPDND —— PONOPNN  S e 
SOooooocqoocooooooo°0oo 
WWAWWWWWNWWNWWANWWAAWW 
WA yw Ww 
MMVVIUIVIUIUT 
Mmno— NAA 


MAME BS EEE 
Wr SOOdONOus 


012737 
104404 


000012 


016662 


000010 
017372 


040000 
017372 


005400 
002406 


002402 


000010 
002526 
146664 
002454 


040000 


146760 


002404 


oes id dhctaasitataatstrcaiiareaiiate 
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40 COMPOSITE ERROR SET = RESET T 


SEQ 0153 


.SBTTL TEST 40 COMPOSITE ERROR SET = RESET TEST 

TEST 40, FORCE A eGOMPOSITE ERROR, THEN CLEAR IT 

: WRITE DATA PATTERN #1 TO RPDA 
READ RPDA AFTER PERFORMING THE WRITE OPERATION 
IF C<RPDS: ERR) OR (RPER1: PAR)) = 0 


OUTPUT ERROR MESSAGE at > ae: ERROR DIDN'T SET WHEN EXPECTED) 


Be Se Ge Ge Se Se Ge Se Se Ge Ge Se Ge Ge Se Se Se 
TEFL TL TFL TL TFL FL TL TL FL TL TL FL TL TL TL TL 


_ = 
nS 
se Oo 


2$: 


3$: 


5$: 


eu FAULT LIST: 


ELS 
SET RPCS2: 


J09, J10, Jie 


CLR = 1 
IF As ae ERR) OR (RPER1: PAR) = 1 
OUTPUT ERROR MESSAGE P . spseam STATUS FAILED TO CLEAR) 


: ENDIF 
ENDIF 
END TEST 40 


MOV #10.,1TCOUN 
TRAP  C$BSEG 

PC, SEIZE 
BIS #PAT aRPCS2 
MOV PATTY .@RPDA 

@RPDA 

PC WAIT 
BIT #PAR,@RPER1 
PC,BISEXP 


3$ 
BIT #ERR,ARPDS 
JSR PC,BISEXP 


TRAP CSERHRD 
“WORD £&M22 
ERRO 
C ITCOUN 
BIS #CLR,aRPCS2 
MOV DRVNO, ARPCS2 
BIT #PAR. »ORPERI 
MOV RPER1, TESTRG 
MOV @RPERI ,RCVED 
EXPTED 


6 
BIT #ERR,ARPDS 


OUTPUT FAULT LIST: 


LOAD THE ITERATION COUNT 


GET THE DRIVE UNDER TEST 


; INVERT gilt = FORCE ERRORS! 
{WRITE A PATTERN 

;READ THE REGISTER JUST WRITTEN 
7STALL FOR THE RPO7 MICROPROCESSOR 
:DID _WE DETECT A PARITY ERROR? 


= 1, YES 
Form THE FAILING DATA 


REPORT 
:DID ‘4 GET COMPOSITE ERROR? 


Y 
Form THE ERROR DATA 
FORM THE ERROR REPORT 
FORM THE EXPECTED DATA 


MOV #B1T8!BIT9!BIT11,ERRWD1 ;FORM MODULE CALL-OUT LIST 
ERRWD2 BOTH WORDS 


ReSET THE Dev ITERATONS NECESSARY 
RELOAD THE DRIVE ~ UNDER = TEST 
;ERROR STATUS GONE? 


IF YES 
FORM THE ERROR REPORT DATA 


CZRJMAQ RPO? FE/HOST ISOLATOR MAC 


TEST 40 COMPOSITE ERROR SET = RESET TEST 


54 035068 
55 033662 
56 033666 
57 033670 


58 
2, 033672 


pO1s17 
737 


005037 


104405 
005337 
003255 


104401 


017422 


004000 002404 6$: 
002406 


002402 


7$: 
10000$: 


002402 


L10066: 


TRAP 


v04 230 1=JAN=83 13:37:00 PAGE 1° 


7$ 
PC ,BICEXP 


#81T11,ERRWD1 
ERRWD2 
CSERHRD 

69 

EM1 

ERRO 

ITCOUN 
CSESEG 
ITCOUN 

1$ 


CSETST 


SEQ 0154 


sIF 0, YES 

sCREATE THIS INFORMATION 
zAND MAKE IT AVAILABLE FOR 
3AN ERROR MESSAGE 


ba a MODULE CALL OUT 
FOR BOTH WORDS 


RESET THE ITERATION COUNTER 


ONE LESS ITERATION TO GO 
:D0 UNTIL <= 0 


pose a ee 


i 
| 
} 
| 
| 


FWN—OVOONAUM SWC OONO USWA 


Nonononyn 3 eee a es 


06 
34010 


012737 


003344 
104401 


000012 002402 


016662 
017000 
100000 146544 


017422 


004000 002404 
002406 


002402 


002402 


M12 
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| TEST 41 ATA CLEAR TEST 


-SBTTL TEST 41 ATA CLEAR TEST 


SEQ 0155 


3% TEST 41 atta, ATA TEST 
3% : SET RPCS2: CLR = 1 
+ IF wee ATA = 1 
3% OUTPUT erg] MESSAGE (DETECTED FALSE ATA) 
3% OUTPUT FAULT LIST: J12 
3% : ENDIF 
3% END TEST 41 
141: 
18 MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
TRAP CS$BSEG 
JSR PC,SEIZE 21 = Rally UNDER TEST 
JSR PC WAIT WAIT FOR THE 4 +4 "aaa Atte 
BIT HATA, @RPDS :DOES THE ATTENTION SUMMARY BIT = 1 
BEQ $ F IT DOES, IT'S WRONG. 
JSR PC ,BICEXP 7 FORM THE oak Tk DATA 
RPDS i THIS REGISTER FAILED 
ATA!ERR THESE BITS FAILED TO CLEAR 
OV #B81T11,ERRWD1 :FORM MODULE CALL = OUT 
CLR ERRWD2 ‘BOTH WO 
TRAP CSERHRD 
~ WORD 70 
-WORD €EM14 
-WORD ERRO 
- CLR ITCOUN sRESET THE ITERATON COUNTER 
10000$: 
TRAP CSESEG 
DEC ITCOUN ;ONE LESS ITERATION 
BGT 1$ 37D0 UNTIL <= 0 
L10067: 


TRAP CSETST 


ra 


am 
rmrminws 


SS 





WR—| OVONAUSWN $0 0OBNAUEWN“"OVDONAUSWwh— 


NP 


SRR KHRS Ssyiesyouns WRININVINNINNNNN 3 3 3 2 2 eo 


NOUS WNM =O OONOU 


w 


ra 
RARRAAAELAELERELERELELEEEEEE 


SOOOOOSSSSOSSO Sooo eoocoooocoooocoeo 
ONNNOOOUU SS 





012737 
104404 


001016 
004737 


ooo SRSSSSS 
S 
N 


——9O900 
MWOSsT 
_ 

Nm 
& 


000012 


016662 
ss 9 


001400 
017372 


001400 
010000 
017326 


000002 
000006 


002506 
000011 
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ATA SET = RiSET TEST 





SEQ 0156 


-SBTTL TEST 42 ATA SET = RESET TEST 


DRFL TL TK FE TL TL TL FO TL FO TL TL TL TO TL FL TL TL TL IL FL 


T42:: 


002402 


146446 
146436 


146424 
002404 


002404 
146366 


TES 


. § 
END 


MOV #10.,1TCOUN 


T 42 SET AND CLEAR ATA BIT 
SET RPCS2: PAT = 1 

WRITE RPDA WITH DATA PATTERN #1, ONCE 
IF (RPDS: ATA) AND (RPDS: ERR)) <> 1 


HEN 
OUTPUT ERROR MESSAGE (ATA DIDN'T SET WHEN EXPECTED) 
od aad FAULT LIST: J09, J10 


ELSE 
ae DRIVE CLEAR COMMAND 

IF —" ATA) AND (RPDS: ERR)) <> 0 

: OUTPUT ERROR MESSAGE (ATA DIDN'T CLEAR WHEN EXPECTED) 
OUTPUT FAULT LIST: J12 

NDIF 

SET RPCS2: PAT = 1 

WRITE RPDA WITH DATA PATTERN #1, ONCE 

SET RPCS2: CLR = 

IF — ATA) OR (RPDS: ERR) <> 0) 


OUTPUT ERROR MESSAGE (RPCS2: CLR DIDN'T CLEAR ATA AS EXPECTED) 
= FAULT LIST: J12 


NDI 
TEST 42 


LOAD THE ITERATION COUNTER 


TRAP CSBSEG 
JSR PC, SEIZE GET THE DRIVE UNDER TEST 
BIS #PAT ,aRPCS2 INVERT PARITY 


MOV PATT1,aRPDA 
ERR 


sMOVE DATA TO RPDA 


CLR woe [FORM SOME MODULE CALL = OUT 

JSR PC WAIT sWAIT FOR THE RPO? MICROPROCESSOR TO FINISH 
BIT HATA'ERR,@RPDS :DID WE DETECT ATTENTION AND ERROR? 

MOV #B1T8'!BIT9,ERRWD :FORM BALANCE OF MODULE CALL OUT 
JSR PC ,BISEXP :SHOW DATA TO ERROR - REPORT 

RPDS STHIS REGISTER 

ATA!ERR “THESE BITS FAILED TO SET 

MOV #B1T8!BIT9,ERRWD1;LOG THE MODULE CALLOUT 

BR 4$ sREPORT IT! 

BIT #MOL ,@RPDS [1S THE DRIVE ON-LINE 

BNE ‘YES, IT IS ONLINE! 

JSR PC, SAVRPR [GET THE REGISTER SNAPSHOT 

MOV LS$TEST,-(SP) 

MOV #MSGMOL , = (SP) 

MOV (SPS 

MOV P-RO 

TRAP  CSPNTF 

ADD SP 

TRAP C$EXIT 

.WORD 110070-. 

MOV DRVNO,@RPCS2  ;LOAD THE DRIVE #, CLEAR OUT PARITY INVERT 


2 ISSUE A DRIVE CLEAR COMMAND 


“mo | 
mms 


TA SET 


034306 
70 034310 
71 034314 
72 034316 

034316 


032777 
0 


005057 


104405 
005337 
003251 


104401 


140000 
000020 
orsann 


140000 
017422 


004000 


002402 


002402 


146306 
146274 
146264 


146252 


002404 


3$: 


4$: 


5$: 
10000$: 


L10070: 


P07 By oercht tear MACRO V04.00 1=JAN-83 13:37:00 PAGE $.4° 


#ATALERR,ARPDS $4 ATTENTION AND ERROR 
4$ SET, ERROR! 


THEY op 


APAT ,ARPCS2 TINVERT P ARITY 
PATT1,aRPDA ;WRITE DATA AGAIN 
PC,WAIT “WAIT FOR THE MICRO PROCESSORS 
PC, SEIZE *GET THE D 
HATALERR, @RPDS ; CHECK ATTENTION AND ERROR 
5$ 0, TEST PASSES 
PC,BICEXP {FORM EXBECTED DATA 
iT IS REGISTE 
THESE BITS FAILED TO CLEAR 
#B1T11,ERRWD1 LOAD THIS MODULE CALLOUT 
CS$ERHRD 
EM14 
ERRO 
ITCOUN :NO FURTHER ITERATIONS 
CSESEG 
ITCOUN ONE LESS TO=GO 
1$ SIF <= 0, WE'RE DONE! 
C$ETST 


SEQ 0157 


C 
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43 RPAS CLEAR TEST 


-SBTTL TEST 43 RPAS CLEAR TEST 
3% TEST 43 CLEAR RPAS REGISTER TEST 
: SET RPCS2: CLR = 1 
: IF ed <> 
% : : OUTPUT ERROR MESSAGE (RPAS DIDN'T CLEAR WHEN EXPECTED) 
3% : + OUTPUT CONTENTS OF RP 
:% : : OUTPUT FAULT Lists J11 / J13, J12, ANOTHER DRIVE 
:% 


1 
2 
3 
4 
5 
6 
v4 
8 
9 
10 : ENDIF 
i END TEST 43 
13 03/320 143:: 
i oer tse 012737 000012 002402 1s MOV #10.,1TCOUN LOAD THE ITERATION COUNTER 
034326 104404 TRAP C$BSEG 
16 034330 004737 016662 JSR PC, SEIZE ie THE DRIVE UNDER TEST 
17 034334 005777 146170 TST @aRPAS RPAS = 0? 
18 034340 001424 BEQ 2$ IF 0, TEST OK! 
79 034342 005037 002454 CLR EXPTED 3 FORM ERROR DATA 
20 034346 013737 002530 002456 MOV ane yy “b R AN ERROR DISPATCH 
21 034354 017737 146150 002452 MOV aRP ‘GET — DATA 
22 034362 012737 016000 002404 MOV moitiOrsiity eirig.tr ERR FORM MODULE CALL OUT 
23 034370 012737 000020 002406 MOV #B1T4 ,ERRWD2 BOTH WORDS 
24 034376 104456 TRAP CSERH éb 
034400 000110 WORD 72 
034402 012523 WORD = EM15 
034404 014172 WORD ERRO 
25 034406 005937 002402 CLR ITCOUN RESET THE ITERATION COUNTER 
26 034412 2$: 
0344 10000$: 
034412 104405 TRAP CSESEG 
27 034414 005337 002402 DEC ITCOUN ONE LESS TO-GO 
28 034420 003342 BGT 1$ zI1F >0, WE'RE NOT DONE 
29 034422 L10071: 


034422 104401 TRAP CSETST 


; 


—o 
mn 


—O OONAOULSWN —“OVONAOUSWh— 


TID ct ed et et et ot 2s ot 2 


034624 


012737 
104404 


005037 


104405 


000012 


016662 


002454 
002530 


0 
002406 


000020 


145750 
002530 


002406 


002402 


002402 


146054 
146044 


002454 
146034 


002456 
002452 
002404 


002456 
002452 
002404 
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ST 44 RPAS CORRECT POSITION TEST 


-SBTTL TEST 44 RPAS CORRECT POSITION TEST 


% TEST 44 RPAS CORRECT POSITION DECODE TEST 
7% : SET RP CS2: CLR =1 
3% SEi RPCS2: PAT = 1 
‘% WRITE RPDA WITH DATA PATTERN #1, ONCE 
i IF RPAS: ATA BIT IS NOT CORRECT POSITION FOR DRIVE UNDER TEST 
% OUTPUT ERROR MESSAGE (RPAS DECODE LOGIC FAILURE) 
i OUTPUT FAULT LIST: J11 / J13 
2% WRITE RPAS WITH EXPECTED RESULTS 
3% ENDIF 
3% SET RPCS2: PAT = 0 
:% IF RPAS: ATA BIT UNDER TEST <> 0 
:% OUTPUT ERROR MESSAGE (RPAS DECODE LOGIC FAILURE) 
7% OUTPUT FAULT LIST: UJ11 / J13, J12 
3% : ENDIF 
:% END TEST 44 
T44: 
i MOV #10. 1TCOUN ZLOAD THE ITERATION COUNT 
TRAP C$BSEG 
JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
BIS #PAT,aRPCS2 S INVERT PARITY (FORCE ERRORS) 
MOV PATT1,aRPDA ;WRITE A PATTERN TO RPDA 
JSR PC WAIT “WAIT FOR THE RpOrS pECROPROCESSOR [0 FINISH 
MOV BITPOS,EXPTED :GET THE EXPECTED 
CMP EXPTED,@RPAS | :DID CORRECT ATN art Mer? 
BEQ 2$ ‘IF EQUAL OK! 
MOV RPAS, TESTRG :FORM REGISTER DATA 
MOV @RPAS D RECEIVED ERROR DAT 
MOV meiridieiri2, ERRW Ot SNOW GET MODULE. CALL = OUT 
CLR ERRWD sBOTH WORDS 
TRAP Bere 
«WORD 73 
“WORD EM14 
“WORD ERRO 
2$: BIC #PAT,a@RPCS2 sINVERT PARITY AGAIK 
MOV EXPTED,@RPAS :TRY TO CL 
CLR EXPTED SHOW EXPECTED ght SuLTs 
TST @RPAS DID R PAS CLEAR 
BEQ 3$ ‘IF SO, SKIP ERROR DISPATCH 
MOV RPAS g"ESTRG [FORM REGISTER DAT 
MOV i5ORM RECEIVED DATA 
MOV mairi6ieunt1 :e1ri2, ERR ACREATE MODULE LIST 
CLR ERR WORDS 
TRAP yes 
.WORD 74 
<WORD EM23 
“WORD  ERRO 
= CLR ITCOUN :NO LOOPS NECESSARY 
10000$: 


TRAP CSESEG 


4 
mn 
ww 


E 
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T 44 RPAS CORRECT POSITION TEST 
49 034626 003337 0(2402 DEC ITCOUN 
50 034532 003277 BGT 1$ 
51 034¢ 34 L10072: 
034634 104401 TRAP CSETST 


13 


;ONE LESS TO-GO 
sI1F >0, WE'RE NOT DONE 


SEQ 0160 
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UNIQUE POSITION DECODE TEST 


-SBTTL TEST 45 UNIQUE POSITION DECODE TEST 

7% reer nes § ar 1 Yt ey DECODE TEST 
SEi_RPCS2: PAT = 1 

WRITE RPDA WITH DATA PATTERN #1, ONCE 

IF ron ATA FOR THE DRIVE UNDER TEST <> 1 


OUTPUT ERROR MESSAGE ee DECODE LOGIC FAILURE) 
oyreus FAULT LIST: J11/J13 


ENDI 
IF RPDS: ATA <> 1 
: THEN 
OUTPUT ERROR MESSAGE (RPDS: ATA DIDN'T SET) 


E 
WRI S A. sae WITH THE COMPLIMENT OF THE EXPECTED DATA 
If Ay ATA FOR THE DRIVE UNDER TEST = 0 


OUTPUT ERROR ates | ire DECODE LOGIC FAILURE) 
OUTPUT FAULT LIST: J13 


: ENDIF 
END TEST 45 


TEFL TL TL TL TL TL FL FL TL TL FL IL TETLTLTL TL TL 


Be Se Ge Be Ge Ge Se Ge Se Se Ge he Be Fe Ge Ge Be 


—_ <4 
nan & 
w 
ee 


0346 104404 TRAP CS$BS5G 

27 034646 004737 016662 JSR PC,SEIZ: GET THE DRIVE UNDER TEST 

28 034 777 ~=000020 145642 BIS #PAT ,aRPCS2 ZINVERT PARITY (FORCE ERRORS) 

‘77 =002344 145632 MOV PATTi ,a@RPDA ;WORIT RPDA WITH PATTERN1 

737 002400 002454 MOV BITPOS,EXPIED GET THE CORRECT ATTENTION BIT POSITION 
737 017000 JSR PC WAIT sWAIT FOR THE RPO7 MICROPROCESSOR 
777 ~=002454 145622 CMP EXPTED ,@RPAS 3MATCH? 

001421 BEQ 23 ZIF EQUAL, Ok! 

34 034710 013737 002530 002456 MOV thes yids, FORM FAILURE “DATA 

35 034716 017737 145606 002452 MOV arP ;4ND LOG IT 

36 034724 012737 012000 002404 MOV meirioisiti2, ERRWD1 CREATE MODULE CALL = OUT 
37 034732 005037 002406 CLR ERR BOTH WORDS 


ERRO 
39 034746 005037 002402 CLR ITCOUN NO LOOPS + Sata 
40 034752 037777 100000 145544 2$. BIT #ATA,@RPDS :DID AiA Sti? 
41 034760 00.912 BNE 3$ :1F NOT ZERO YES! 
42 034762 00/737 017372 JSR PC ,BISEXP LOAD THE FAILING INFORMATION 
43 034766 Ou2524 RPDS THIS REGISTER FAILED 
44 034770 100000 ATA ;THIS BIT FAILED TO SET 
45 fh 104456 TRAP mee 


ERRO 
37 002402 CLR ITCOUN NO LOOP NECESSARY 
7 002454 3$: COM EXPTED :COMPLIMENT THE EXPECTED DAT 
002454 145510 MOV EXPTED,@RPAS ZAND WRITE TO RPDA 7 00 NOTHING) 
7 002454 COM EXPTED ;RE~INVERT EXPECTED DATA 
7 002454 145476 CMP EXPTED ,@RPAS SAND SEE IF ATN CLEARD 


rwo-oo——o 


i 
1 
ot 
1 
1 
1 
1 
1 
| 
1 
1 
2 
2 
2 
2 
24 034636 : 
2 034636 012737 000012 002402 MOV #10.,17COUN ;LOAD THE ITERATION COUNT 


-—— -—--—-——----———. - + 


SS ss SSS Se 


61 035106 
035106 


104405 
005337 
003257 


104401 


002530 
145462 
012090 
002406 
002402 


002402 


002456 
002452 
002404 


4$: 
10000$: 


L10073: 
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UNIQUE POSITION DECODE TEST 


SEQ 0162 


MATCH, IT DID NOT TEST OK! 


S$ lf 
capet y oi. 7FORM FAILING “i TER 


aRPA SAND FAILING DATA 
mairioieitiz, ERRWD1 sCREATE MODULE CALLOUT 
ERRWD2 ;BOTH WORDS 

CSERHRD 

77 

EM14 

ERRO 

ITCOUN :RESET THE ITERATION COUNTER 
CSESEG 

ITCOUN ;ONE LESS ITERATION 

1$ tIF > 0, DO AGAIN 

CSETST 


C 
T 


[oon rt a 


Z 
E 


RJ 
ST 


ek ad ak a od od 
SSWWNN ee 
MENS KVLOAAOO 


WN —SOOBNOUW FWN—OOONOUEWN— oS 
wis 


SOOO Cooooooooooooo°oo 


So 
WGN 
w 


MORIN) a eee Sat ot os 
WAWANWNAAANNNWAAAANWAWW 
DA AIA AAA IAAI AIT IT 


nN 

Oo 

So 

Ww 

wivi 

and and ad and 
VN 
as 


2? 035202 
28 035204 
035204 


012737 
104404 


005037 


104405 
005337 
003345 


104401 


000012 
016662 
100000 
017422 
012000 
000426 


002402 


002402 


002402 


145360 


002404 
002406 
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MASSBUS ATTENTION CLEAR TEST 


SEQ 0163 


-SBTTL TEST 46 MASSBUS ATTENTION CLEAR TEST 
ate Aa cee MASSBUS ATTENTION TEST 
if — SC) OR (ON RH20=""ATIN") = 1 
OUTPUT ERROR MESSAGE (DETECTED FALSE SPECIAL CONDITION) 


Be Be Be Se Oe Be Oe oe 
FLFLTL TL TL TL FLT 


T46:: 


2$: 
10000$: 


L10074: 


w  itteed FAULT LIST: 


: ENDI 

END TEST 46 

MOV #10., 1TCOUN 
TRAP CS$BSEG 

JSR PC,SEIZE 
BIT oe 
PC,BICEXP 
MOV #B1T10'B 


1T1 
MOV #B1T1!B1 12! 
TRAP os 


2,ERR 
B1i4 


° ER 
CLR ITCOUN 


TRAP CSESEG 
DEC i 


TRAP CSETST 


wD 
4!BIT8, eRRuD?; BOTH WORDS 


CABLE, RHXX, J11/J13, ANOTHER DRIVE, TERMINATOR 


LOAD THE ITERATION COUNT 


2GET THE DRIVE AFTER PURGING ERRORS! 
TEST RPCS1 = SPECIAL CONDITION 

:1F 0, TEST OK! 

[FORM UP FAILING DATA 

;THIS REGISTER 

; THIS e He TO CLEAR 

1 M UP MODUT E CALLOUT 


NO ITERATIONS NECESSARY 


sONE LESS pec e TO GO 
SIF <= 0, DONE! 


=m 


13 
CZRJMAQ RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE a) SEQ 0164 
TEST 47 MASSBUS ATTENTION SET/CLEAR TEST 


} -SBTTL TEST 47 MASSBUS ATTENTION SET/CLEAR TEST 
3 3% TEST 47 ee ATTN eet @ CLEAR TEST 
4 sa : SET RPCS2: CLR 
5 3% SEi RPCS2: PAT = 
6 ere RPDA WITH DATA PATTERN #1, ONCE 
‘ 3 IF (¢ - ee SC) OR CIN RH20="ATTN'')) <> 1 
9 7% OUTPUT ERROR MESSAGE (FAILED TO DETECT SPECIAL comition WHEN EXPECTED) 
+ 3 END — FAULT LIST: RHXX, CABLES, J11 / J13, TERMINATOR 
\¢ 3% END TEST 47 
14 035206 T47:: 
2 052600 012737 000012 002402 18 MOV #10.,1TCOUN ;LOAD THE ITERATION COUNT 
035214 104404 TRAP CSBSEG 
17 035216 004737 016662 JSR PC,SEIZE sFLUSH ERRORS THEN GET THE DRIVE 
18 035222 052777 000020 145272 BIS #PAT a@RPCS2 aN te R PARITY (FORCE ERRORS) 
19 035230 113777 002344 145262 MO’. PATT1,aRPDA WRITE RPDA, ONCE 
20 035236 904737 017000 JSR PC WAIT WAIT FOR THE RPO7 7 ae A ecm 
21 035242 032777 100000 145242 BIT #SC,aRrPCS1 D1 SPECIAL CONDITION SET? 
22 035250 001020 BNE 2$ F = YES 
23 035252 004737 017372 JSR PC ,BISEXP : FORM ERROR DATA 
24 035256 002512 RPCS1 FOR AN ERROR DIS, TCH 
25 0352¢e 100000 sc aeittls BIT FAILED TO SET 
26 035262 012737 012000 002404 MOV #B1T10'BIT12,E E LIST 
27 035270 012737 000406 002406 MOV #BIT1'B Pre! BIT B ERRUD2 ‘BOTH WORDS 
28 035276 104456 TRAP CSERHR 8! 
035300 000117 ~WORD 79 
035302 012725 «WORD €EM21 
035304 014172 -WORD ERRO 
29 035306 005037 002402 CLR ITCOUN sRESET THE ITERATION COUNTER 
30 035312 2$: 
035312 10000$: 
035312 104405 TRAP CSESEG 
31 035314 005337 002402 DEC ITCOUN sONEW LESS ITERATION 
32 035320 003335 BGT 1$ sIF <= 0, DONE 
33 035322 110075: 
035322 104401 TRAP CSETST 


--—-—-—: 


wore ee a ee 
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TEST 48 READ-IN-PRESET COMMAND TEST 


324 012737 


DONAUSWN—ODOONOUSWwh— 


— ot  ) - 2  - 


005037 
104405 


0 
$0: 737 
104401 


000012 
010000 


017326 
002114 
006452 
000002 


000006 


016662 
000021 
Hy 


017422 


004000 
002406 


002402 


002402 
017722 


002402 
145164 


145100 
145100 


002404 


SEQ 0105 


-SBTTL TEST 48 READ-IN-PRESET COMMAND TEST 
3% wT atce ae BASIC COMMAND TEST 


L 
3% age READ-IN-PRESET COMMAND 
3% IF RPDS: ERR = 1 
3% : : THEN 
3% : +: OUTPUT ERROR MESSAGE {gerectes FALSE COMPOSITE ERROR) 
3% $ OUTPUT FAULT LIST: J12 
33 : ENDIF 
3% END TEST 48 
48:: 
MOV #10.,1TCOUN LOAD " ITERATION COUNT 
ay #MOL ,@RPDS DRIVE ON Be LINE? 
JSR PC, SAVRPR [GET THE REGISTER SNAPSHOT 
MOV LSTEST,-(SP) 
MOV #MSGMOL ,- (SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #6, T 
TRAP C$EXI 
WORD {70076-. 
1$: 
TRAP 
JSR PC, SEIZE 3GET THE DRIVE UNDER TEST 
MOV #RIP,aRPCS1 sISSUE THE READ-IN-PRESET 
JSR PC WAIT [WAIT FOR THE RPO7 MICROPROCESSOR 
ait #ERR ,@RPDS Stee CAUSE AN ERROR? 
JSR PC,BICEXP SLOAD FAILURE DATA 
RPDS :THIS REGISTER 
ERR THIS BIT FAILED 2 STAY CLEAR 
MOV #B1T11,ERRWD1 FORM MODULE CALLOUT 
CLR ERRWD2 FOR BOTH WORDS 
TRAP CSERHRD 
-WORD 80 
eWORD EM23 
-WORD ERRO 
95 CLR ITCOUN sNO ITERATIONS NECESSARY 
10000$: 
TRAP CSESEG 
pet {com ng TOGO 
JSR PC,PRELOD SRESET THE bRIVE TO 16 BIT MODE 
L10076: 
TRAP CSETST 


pa en a — — ee ---- - —_o 
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‘Nest 49 RHXX UNIQUE REGISTER TEST 


j 
} 
| 
| 


} .SBTTL TEST 49 RHXX UNIQUE REGISTER TEST 

3 7% SET RPCS2: CLR = 1 

$ is LOAD DRIVE NUMBER INTO RPCS2 

6 % WRITE A UNIQUE PATTERN INTO A SELECTED REGISTER 

7 37% REGISTERS TO TEST = ty RPWC, RPBA, RPDA, RPMR1, RPOF, RPDC 
& % OPTIONAL REGISTERS FOR AN RH70 = RPBAE, RPCS3 

9 3% UNTIL ALL REGISTERS WAVE NBEEN WRITTEN 

10 :% ENDREPEAT 

af i IF REGISTER UNDER TEST DOESN'T MATCH EXPECTED DATA 

13 % OUTPUT ERROR MESSAGE (REGISTER SELECTION FAILURE) 

\ % Enp tees FAULT LIST: RHXX, CABLES, J11, J12, J13, TERMINATOR 
16 7% END TEST 49 

18 035502 149:: 

19 035502 012737 000012 002402 MOV #10.,1TCOUN :LOAD THE ITERATION COUNT 
20 035510 004737 01666 JSR PC, SEIZE *LOAD THE DRIVE UNDER T 
21 035514 012737 000002 002436 1S: MOV #2. TEMP SLOAD THE FIRST DATA FERN 
22 035522 012702 00265 MOV APSTACK,R2 SCREATE THE CHECK BUFFER ADDRESS 

23 035526 012701 004330 MOV #TST49,R1 [GET THE FILE OF REGIST ER ST 

24 035532 012703 000004 MOV #4 ,R3 [GET THE FIRST SEGM 

25 035536 013146 2$: MOV a(R1)+,-(SP) § :GET THE INITIAL STATE. OF THE REGISTER 

26 035540 017612 000000 MOV a(SP), (R2) i SAVE IT IN THE IMAG 
27 035544 053736 002436 BIS TEMP ,a(SP)+ WRITE THE UNIQUE teer BIT 

28 035550 053722 002436 BIS TEMP, (R2)+ 3 AND SET THE ¢ ORRECT MASK IN THE IMAGE FILE 
29 035554 005237 002436 INC TEMP “NEXT UNIQUE PATTERN 

30 035560 005303 DEC R3 REDUCE THE ITERATION COUNT 

31 035562 003365 BGT 2$ TIF > 0. KEEP GOING! 

32 035564 012737 000010 002436 MOV #10, TEMP [NEXT PATTERN 

33 035572 012703 000004 MOV #4,R3 [AND THE NEXT SEGMENT COUNT 

34 035576 005737 002504 TST RHTYPE ;WHICH CONTROLLER? 

35 035602 001402 BEQ 4$ RH11 

36 035604 062703 000002 ADD #2,R3 ZADD 5 TO THE SEGMENT COUNT TO INCLUDE RPBAE & RPCS3 
37 035610 013146 4$: MOV a(R1)+,-(SP) | :SAVE THE INITIAL STATE OF THE REGISTER 

38 035612 017612 000000 MOV a(SP),(R2) *NOW GET THE INITIAL pGONTENTS OF THE REGSISTER 
39 035616 053736 002436 BIS TEMP ,a(SP)+ “NOW WRITE THE TEST PATTERN 

40 035622 053722 002436 BIS TEMP, (R2)+ : AND UPDATE THE SAGE ATILE 
41 035626 005237 002436 INC TEMP ‘NEXT PATTERN 
42 035632 005303 DEC R3 ZONE SLESS. ITERATION TO GO 
43 035634 003365 BGT 4$ + IF DONE YET! 
44 035636 012701 004330 MOV #TST49,R1 [GET > He REGISTER FILE * AGAIN 
45 035642 012702 002652 MOV #PSTACK,R2 SAND THE OUTPUT FILE AGAIN 

6 035646 012703 000010 MOV #8. R3 *GET THE OVERALL ITERATION COUNT 
47 035652 005737 002504 TST RHTYPE SWHICH CONTROLLER? 
48 035656 001402 BEQ x3 ‘IF 0, IT'S AN EEE 
49 035660 062703 000002 ADD #2,R3 + INCLUDE THE TWO EXTRA REGISTERS: RPBAE & RPCS3 
50 035664 013146 5$: MOV a(R1)+,=(SP) 3GET THE ADDRESS OF THE REGISTER UNDER TEST 
51 035666 023622 CMP a(SP)+,(R2)+ :DOES THE DAT A MATCH? 

52 035670 001425 BEQ 6$ ‘YES, 

53 035672 017637 177776 002452 MOV a-2(SP) ,RCVED 3GET * THE “Pait LING DAT 

54 035700 016637 177776 002456 MOV -2(SP),TESTRG | :AND THE FAILING REGISTER ADDRESS 

55 035706 016237 177776 002454 MOV -2(R2)_EXPTED  =NOW Ww GET THE EXPECTED DATA 

56 035714 012737 016000 002404 MOV #B1T10'BIT11'BITI2, ERRWD 

57 035722 012737 000406 002406 MOV MeN RTT IBITR ERRUROTCREATE THE MODULE CALLOUT 


035756 





72 
005937 002402 
005303 
003346 
005337 002402 
003257 
104401 





6$: 


L10077: 
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9 RHXX UNIQUE REGISTER TEST 


CSERHRD 
81 


5$ 
ITCOUN 
1$ 


CSETST 


SEQ 0167 


sRESET THE ITERATION COUNTER 
ZONE LESS REGISTER TO TEST 
zIF > 0, KEEP GOING! 
; ONE ”LESgs ITERATION 

F <= 0, DONE!! 


ASR Aaa a epee TGS T 


M13 
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T 50 RPLA STATIC TEST 


$2 
re J .SBTTL TEST 50 RPLA STATIC TEST 
2 7% TEST 50 RPLA STATIC TEST 
4 3% SET UP FOR A SECTOR MATCH IN RPLA 
2 :% SEs UP A WATCHDOG TIMER 
| f if IF DESIRED SECTOR DOESN'T MATCH CONTENTS OF RPLA 
9 :% DECREMENT THE WATCHDOG TIMER 
10 3 IF WATCHDOG TIMER = 0 
12 7% OUTPUT ERROR MESSAGE (CAN'T FIND DESIRED SECTOR IN TIME) 
1? A winws FAULT LIST: J8, J11, J12, J13, RHXX, CONTROLLER, CABLES, TERMINA 
15 7% : RE-READ RPLA LOOKING FOR A SECTOR MATCH 
16 :% ENDIF 
17 3% ELSE 
18 7% GET NEXT LEGAL SECTOR ADDRESS 
18 ii i yoREFRESH THE WATCHDOG TIMER 
21 % : 2 UNTIL fut LEGAL SECTOR ADDRESSES HAVE BEEN USED 
22 3% $ ENDREPEAT 
33 3% END TEST 50 
25 035760 T50:: 
26 035760 012737 000012 002402 MOV #10.,1TCOUN ;LOAD THE OVERALL ITERATION COUNTER 
27 035766 005001 1$: CLR S USED FOR THE SECTOR ADDRESS 
28 035770 012703 000003 MOV #3,R3 :0v ERALL ITERATION COUNTER 
29 035774 013737 002532 002456 MOV RPLA, TESTRG HIS REGI STER MIGHT FAIL 
30 036002 012737 016200 002404 MOV #BIT?!BIT10!BIT 141BITIO CER 
31 036010 012737 000406 002406 MOV #B81T1'B1T2'B1T8,ERR 
32 036016 004737 016662 JSR PC SEIZE 3GET THE DRIVE NOW! 
33 036022 012737 177777 002436 2%: MOV 4-1, TEMP “USED FOR A WATCHDOG Ti"? 
34 036030 027701 144476 3$: CMP @RPLA,R1 sNOW LOOK FOR SECTOR 0 
35 036034 001421 BEQ 6$ iMAT CH, GO-ON 
36 036036 005337 002436 DEC TEMP 1.2 LESS MICROSECONDS TO GO 
37 036042 001372 BNE 3$ tKEEP GOING IF NOT ZERO 
38 036044 005303 DEC R3 ZONE LESS ITERATION TO GO 
39 036046 003365 é BGT 2$ 71F NOT ZERO, KEEP GOING 
40 036050 017737 144456 002452 4$: MOV @RPLA,RCVED [GET THE RECEIVED DATA 
41 036056 010137 002454 5$: MOV R1,EXPTED ‘GET THE EXPECTED DATA 
42 036062 104456 TRAP  CSERHRD 
36064 000122 .WORD 82 
036066 012454 cw EM14 
036070 014172 “WORD ERRO 
43 036072 005037 002402 CLR ITCOUN ;RESET THE | ITERATION COUNTER 
44 036076 000454 BR 14$ TAKE FAR TU 
45 036100 012703 002652 6$: MOV #F ACK,R3 IGET T HE 5 OUT OF 3 BUFFER 
46 036104 062701 000100 ADD #100,R1 :SET UP FOR THE NEXT SECTOR ADDRESS 
47 036110 020127 006200 CMP R1,#6200 [DONE? (SECTOR 50) 
48 036114 001442 BEQ 13$ SIF MATCH, vies 
49 036116 012702 000002 MOV #2,R2 :WE MUST HAVE TWO MATCHES 
50 036122 012704 000003 MOV #3.R4 SUSE THIS FOR AN OVERALL. ITERATION COUNT 
51 036126 012737 177777 002436 7$: MOV 4-1, TEMP SUSE THIS AS A WATCHDOG TIMER 
52 036134 005337 002436 8$: DEC TEMP 71.2 MICRO SECONDS LESS WINDOW 
53 036140 001404 BEQ 9$ [IF ZERO, FIND OUT WHICH ITERATION 
54 036142 027701 144364 CMP @RPLA,R1 *MATCH? 





_— -_— | 


8 a RPO7 FE/HOST IS 
TEST 50 RPLA STATIC TES 
55 03614 oot are 
28 036150 00140 
5 B12 005304 
58 036154 O0538¢ 
59 036156 0017 
60 036160 017723 144346 
61 036164 017723 144342 
6¢ 036170 017723 144336 
63 036174 024301 
64 036176 001003 
65 036200 005302 
66 036202 003374 
67 036204 4 


000 $6 
68 036206 020327 002650 
70 036214 011337 002454 
36 000716 
72 036222 tt 002402 


9$: DEC 
10$: MOV 


118: CMP 


12$: CMP 


13$: DEC 


14$: 
L10100: . 
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13$ 
R3,#PSTACK=2 
11$ 

(R3) ,EXPTED 
ITCOUN 

1$ 


CSETST 


SEQ 0169 


y1F NOT, KEEP TRYING 

if $0, TRY AGAIN 

e téss ITERATION TO GO 
it E bt ZERO, KEEP AURYING, 


?GET THE SECOND OF THREE READINGS 
3GET THE FINAL READING 

:D0 WE MATCH? 

TIF NOT, CHECK IT Fo" ERRORS 

t0K ONCE, TRY AGAIN 

: BRANCH 


:GET THE ewectee DATA FOR THE REPORT 
REPORT THE ERROR 

ONE LESS ITERATION...... 

t1F <= 0, DONE!! 
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TEST 51 RPMR1 = RPER2 WRAP AROUND TEST 


SEQ 0170 | 


a0 | 


J .SBTTL TEST 51 RPMR1 = RPER2 WRAP AROUND TEST 
3 7% TEST 51 RPMR1 = RPER2 WRAP AROUND TEST 
4 2% USING PATTERNS 1-4, ONE AT A TIME, 
5 :% TE RPMR1, LOW BYTE WITH TEST PATTERN 
6 :% wR. "E RPMR1, HIGH BYTE WITH ‘FE* (HEX) 
7 :% ISS = A DIAGNOSTIC COMMAND 
2% WAIi ®OR THE COMMAND COMPLETION 
> ik IF Ri R2, LOW BYTE ONLY, DOESN'T MATCH THE TEST PATTERN 
11 :% OU: T ERROR MESSAGE (REGISTER CONTENTS DON'T MATCH EXPECT DATA) 
12 2% : OUT; JT FAULT LIST: J7, J8 
13 3% : ENDIF 
14 3% END TEST 51 
16 036232 151: 
17 036232 012737 000002 002402 MOV #2. « LTCOUN LOAD THE ITERATION COUNT 
18 036240 012737 000035 002420 MOV #DIAG,FUNCTN  :LOAD THE DIAGNOSTIC COMMAND FUNCTION 
19 036246 012737 000300 002404 MOV mete ietty. ERRWD1;LOAD THE CALLOUT LIST 
20 036254 005037 002406 CLR ERR WDe zNO MODULE FOR THIS MASK 
21 036260 004737 016662 JSR EIZE [LOAD THE DRIVE NUMBER 
22 036264 013737 002552 002456 MOV RPERD TESTRG §§ :THIS REGISTER MAY FAIL 
23 036272 012701 177000 1$: MOV 7000, :SET UP FOR A 0°S ‘WRITE WRAP TO RPER2 
24 036276 104404 TRAP SEG 
25 076300 010177 144232 MOV R1,aRPMR1 sLOAD THE MAINTENANCE REGISTER NOW 
26 036304 004737 015146 JSR PC; DRIVER ‘ISSUE THE DIAGNOSTIC COMMAND 
27 036310 017746 144236 MOV @RPER2,=(SP) GET THE RESULTS 
28 03631 2716 177400 BIC #177400, (SP) AND REMOVE THE UNWANTED BITS 
29 036320 120126 CMPB sR}, ( H? 
30 036322 001415 BEQ 2$ STAKE BRANCH IF SO... 
31 036324 005037 002454 CLR EXPT ‘RESET THE EXPECTED DATA 
32 036330 110137 002454 MOVB = R17, EXPTED [LOAD THE EXPECTED STATUS 
0363 16637 177776 002452 MOV -2(SP),RCVED | :AND THE FAILING STATUS 
34 036342 104456 TRAP — CSERHRD 
036344 000123 .WORD 83 
036346 012454 “WORD EM14 
036350 014172 “WORD ERRO 
35 036352 005037 002402 LR ITCOUN ZNO ITERATIONS NECESSARY 
36 036356 004737 015400 2$: JSR PC, DRVCLR [PURGE ERRORS 
37 036362 10000$: 
036362 104405 TRAP C$ESEG 
036364 104404 TRAP  C$BSEG 
39 036366 012701 177377 MOV #177377,R1 :WRITE AN ALL ONES PATTERN TO RPER2 
40 036372 010177 144140 MOV R1,aRPMR1 ‘WRITE THE MAINTENANCE REGISTER NOW 
41 036376 004737 015146 JSR PC DRIVER ‘ISSUE THE DIAGNOSTIC COMMAND 
2 036402 017746 144144 MOV @RPER2,-(SP)  :GET THE RESULTS 
43 036406 042716 177400 BIC #177406, (SP) STR IP THE HIGH BITS OUT 
44 036412 120126 CMPB »(SP)+ SMAT 
45 036414 001415 BEQ ‘IF 50, TAKE BRA 
46 036416 005037 002454 CLR EXP TED ‘SET UP FOR AN ERROR MESSAGE 
47 036422 110137 002454 MOVB = R1, EXPTED SET WHE EXPECTED DATA 
48 036426 016637 177776 002452 MOV -2(SP),RCVED § :SET THE RECEIVED DATA 
036434 104456 TRAP C$ER HRB 
036436 000124 .WORD 84 
036440 012454 “WORD EM14 
036442 014172 “WORD ERRO 
50 036444 005037 002402 CLR ITCOUN :NO FURTHER ITERATIONS NECESSARY 
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[TEST 51 RPMR1 = RPER2 WRAP AROUND TEST 
51 036450 004737 015400 3$: JSR PC,DRVCLR 
52 036454 10001$: 
| 036454 104405 TRAP CSESEG 
53 036456 012701 000001 MOV #BITO,R1 
54 036462 052701 177000 4$: BIS #177000,R1 
55 036466 104404 TRAP BSEG 
56 036470 010177 144042 MOV Ri -@RPMRI 
57 036474 004737 015146 JSR PC DRIVER 
58 036500 017746 144046 MOV SRBEROY tsp) 
59 036504 042716 177400 BIC #177400, (SP) 
60 036510 120126 CMPB-—saR11,, (SP) 
61 036512 001415 BEQ 5$ 
62 036514 005037 002454 CLR EXPTED 
63 036520 110137 002454 MOVB R1,EXPTED 
64 036524 016637 177776 002452 MOV ce(sP) RCVED 
65 036532 104456 TRAP HRD 
036534 000125 WORD g5eR 
036536 012454 [WORD EM14 
036540 014172 “WORD ERRO 
66 036542 005037 002402 CLR ITCOUN 
67 036546 004737 015400 5$: JSR PC, DRVCLR 
68 036552 10002$: 
036552 104405 TRAP  C$ESEG 
69 036554 042701 177200 BIC #177200,R1 
70 036560 001402 BEQ 6$ 
71 036562 006301 ASL R1 
72 036564 000736 BR 4$ 
73 036566 012701 000376 6$: MOV #376,R1 
4 036572 052701 177000 7$: BIS #177000,R1 
75 036576 104404 TRAP BSEG 
76 036600 010177 143732 MOV R1,aRPMR1 
77 036604 004737 015146 JSR PC. DRIVER 
78 036610 017746 143736 MOV @RPER2 ,-(SP) 
79 036614 042716 177400 BIC #177400, (SP) 
80 036620 120126 CMPB- ss RX1, (SP) + 
1 036622 001415 BEQ $ 
82 036624 005037 002454 CLR EXPTED 
036630 110137 002454 MOVB 1, EXPTED 
036634 016637 177776 902452 MOV -2(SP) ,RCVED 
85 036642 104456 TRAP  C$ERHRD 
036644 000126 .WORD 86 
036646 012454 “WORD EM14 
036650 014172 “WORD ERRO 
86 036652 005037 002402 CLR ITCOUN 
7 036656 004737 015400 8$: JSR PC, DRVCLR 
88 036662 10003$: 
036662 104405 TRAP C$ESEG 
036664 042701 177400 BIC #177400,R1 
90 036670 000261 SEC 
91 036672 006101 ROL R1 
92 036674 042701 177400 BIC #177400,R1 
93 036700 022701 000377 CMP #377,R1 
94 036704 001332 BNE 
036706 005337 002402 DEC ITCOUN 
96 036712 003402 BLE 9$ 
97 036714 000137 036272 JMP 1$ 
98 036720 004737 015400 9$: JSR PC,DRVCLR 


14 


SEQ 0171 
3NO LEFT-OVER ERRORS 
LOAD THE NEXT PATTERN NOW 


sAND SET THE DIAGNOSTIC START MASK 
LOAD THE WRAP Ly NOW 
COMMAND NOW! 


RESULTS 
atta UNWANTED DATA 
- SKIP secre ‘tata 


zAND THE FAILED RESULTS 


:NO ITERATIONS NECESSARY 
NO ERRORS! 


3DONE? 

sIF ZERO, YES!!! 

3NEXT BIT POSTIION, NOW! 
— ose NG! 


3LAST PATTERN 
LOAD rae DIAGNOSTIC START AGAIN 


LOAD THE WRAP DATA NOW 

EXECUTE THE DIAGNOSTIC COMMAND NOW 
:GET THE RESULTS 

STRIP UNWANTED DATA 


zI1F SO, SKIP ERROR REPORT 
;RESET THE ey DATA 
LOG THE GOOD DAT 

:LOG THE BAD DATA. 


RESET THE ITERATIONS COUNTER 
RESET ANY ERRORS 
ey A A. MASK 


SHIFT ert (ONE TIME!!) 
CLEAR, THE UNUSED BITS FOR THE FINAL TEST 


TIF NOT, KEEP GOING 
:ONE nLESS ITERATION TO-GO 
IF <= » DONE 


:D0 UN rit = 0 
ELIMINATE “ANY ERRORS! ! 


a0 | 


a 8 


| 
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TEST 51 RPMR1 = RPER2 WRAP AROUND TEST 


99 036724 004737 015312 JSR PC ,DIAGEN ;SHUT THE DIAGNOSTIC MONITOR OFF. 


100 036730 L19101: 
036730 104401 TRAP CSETST 


SEQ 0172 


a0 | 


Se a 
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TEST 52 ERROR LOG DUMP 


SOWDNAMNEWN 0 OONOUE WN 


ID a dd nd ed od ds od 


} 
| 
| 
03673 
21 036732 005737 


0 
43 037034 000761 
45 037036 013746 
03 


52 037112 016646 
037116 012746 


002334 
016662 
00265 


6 
000027 
015260 
015400 


177400 
000162 


002654 


002420 


-SBTTL TEST 52 ERROR LOG DUMP 


Tare Tere Tere rere rere rere rererery 
TEFL FL TL FL TL TL TL FL TLTL TL TL TL TFL TL 


“4 
w 
Nm 


1$: 


3$: 


rest i ERROR LOG DUMP 

THIS TEST DOES NO DATA CHECKING 

LOAD ply! yy A at HIGH BYTE 
YTE OF WITH RAM LOCATION TO BE DUMPED: 
He PoCHEX) FOR REVISION LEVEL 
32-37(HEX) FOR THE ERROR L 
88(HEX) FOR FAILED RECAL ATTEMP 
Or aa FOR LAST 20. UNIQUE ERROR LOG ENTRIES 


LOAD A DIAGNOSTIC COMMAND 
WHEN COMMAND EXECUTION COMPLETES GET CONTENTS OF RPER2 
CONVERT TO H a Ry a (AS REQUIRED) 


US 
: UNTIL ALL CONTENTS HAVE BEEN DUMPED 
ENDREPEAT 


| ae 
oO 
> 
J 
e 
4 


END TEST 52 

TST ERRDMP ;DUMP THE ERROR LOG? 

BGT 1$ IF >0, YES 

TRAP  — C$EXIT 

.WORD 110102-. 

JSR PC, SEIZE ;LOAD THE DRIVE NUMBER 

MOV #PSTACK,R2 :GET THE OUTPUT BUFFER 

MOV #DIAG,FUNCTIN SET UP FOR A. DIAGNOSTIC COMMAND 
MOV #161,R1 :THIS IS THE FIRST LOW BYTE PARAMETER 71 HEX) 
MOV #27,R4 [THIS IS THE DUMP ROUT INE NUMBER (17 HEX) 
SWAB RG [PUT THIS AS THE COMMAND NUMBER 
JSR PC ,DIAGST [START THE DIAGNOSTIC MON OR 

BIS R1_R4 [LOAD THE RAM ADDRESS 

JSR PC; DRVCLR ‘NO ERRORS INITIALLY 

JSR PC -DIAGLD ‘ISSUE THE COMMAND 

MOV @RPER2, (R2) *GET THE RESULTS (8080/2901 REV'S) 
BIC #177400,(R2)+ STRIP our UNWANTED 

BIC R1,R4 SREMOVE THE LOW BY TELA RGUMENT 

CMP R1.#162 :DONE BOTH LOCATIONS? (72 HEX) 

BEQ 3$ YES 

INC R1 SET THe “5901 REV LEVEL REQUEST 

BR 2$ ae 6 AM 


O THE RAM AND GET IT 
PRINT ” 3080 AND 2901 REVISION LEVELS 
MOV PSTACK+2,=(SP) 


MOV #3,-(5 

MOV SP-R 

TRAP — C$PNTF 

ADD #10,SP 

MOV #61_R1 3SET UP FOR THE NEXT RAM DUMP (31 HEX) 
JSR PC,ORVCLR *NO ERRORS NOW! 

JSR PC; NEXLOC ‘NOW GET THE DATA 

MOV @RPER2,-(SP) | :GET THE RAM OUTPUT 

BIC #177400, (Sp)e *STRIP UNUSE 


D DAT 
‘PRINT NUMBER OF SEEKS TOO LONG 
MOV -2(SP),=(SP) 
MOV #FRMTO?,=(SP) 


— —~ + ae ane een oe 


| 
| 
| 
| 


a 
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TEST 52 ERROR LOG DUMP 


037122 


6¢ 037216 
64 037222 
0 6 


be 037326 
76 037332 
037336 


60 037372 


8 

82 037376 
037402 
037406 
037412 


012746 


042726 
016646 


042726 
016646 


042726 
016646 


042726 
016646 


042726 
016646 


0 
010600 


000002 


spats 


177400 
177776 


007624 
000002 


000006 


177776 
007756 
000002 


000006 


177400 


177776 
010004 
000002 


#2,-(SP) 
CSPNTF 
6,SP 

PC. DRVCLR 
PC .NEXLOC 


@RPER2,-(SP) 
#177400, (SP) + 


-2(SP),-(SP) 
#FRMT10,=(SP) 
#2,-(SP5 


SP,RO 
CSPNTF 
#6,5P 
PC,DRVCLR 
PC ,NEXLOC 


@RPER2,-(SP) 
#177400, (SP)+ 


-2(SP),=(SP) 
#FRMT11,=(SP) 
#2,-(SP) 


SP,RO 

CSPNTF 

#6,SP 

PC. -DRVCLR 

PC -NEXLOC 

@RPER2,-(SP) 

#177400, (SP)+ 

-2(SP),-(SP) 

#FRMT12,-(SP) 
#2,-(SP j 
CSPNTF 

#6, 

PC DRVCLR 


@RPER2, -(SP) 
#177400, (Sp)+ 


-2(SP),-(SP) 
#FRMT13,-(SP) 
#2,-(SP) 
SP.RO 
CSPNTF 
#6,SP 
PC. DRVCLR 
PC -NEXLOC 
ORERD =(SP) 
#177400, (SP)+ 
-2(SP),-(SP) 


#FRMT14,~(SP) 
#2,-(SP) 


SEQ 0174 


3NO 1 tae nee ERRORS 

7GET THE NEXT RAM CONTENTS 

3GET THE RESU bet 

;STRIP UNWANTED 

;PRINT NUMBER GF OgEeK OVER HO°TS 


3NO ERRO 
3NEXT Paes wey: 


3NO_FURTHER ERRORS 

GET Ly. NEXT CONTENTS PLEASE.. 
3GET THE RESULTS 

7STRIP THE UNUSED DAT 

;PRINT GUARD=BAND DETECTED SKI'S 


:NO thay ERRORS 
sNEXT_RAM LOCATION... 

7GET THE RESULTS 

7STRIP THE UNUSED DATA 

;PRINT NUMBER OF INDEX ERRORS 


;NO FURTHER ERRORS 

SNEXT_&AM LOCATION 

GET THE RESULTS 
STRIP THE WHO CARES" BITS 
;PRINT NUMBER OF PLO UNSAFES 


7 


“o- 


CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE ft! 
TEST S52 ERROR LOG DUMP 


[ 
iC 
| 
| 037414 104417 TRAP —CSPNTF 
037416 062706 000006 ADD #6,SP 
83 037422 012701 000210 MOV #210,R1 
84 037426 004737 015400 JSR PC.DRVCLR 
| B5 037432 004737 017252 SR PC -NEXLOC 
86 037436 017746 143110 MOV SAEED =(SP) 
| 87 037442 042726 177400 BIC #177400, (SP)+ 
9 037446 016646 177776 MOV -2(SP) ,-(SP) 
037452 012746 010031 MOV #FRMT15,=(SP) 
037456 012746 000002 MOV #2,-(SP5 
037462 010600 MOV SPR 
037464 104417 TRAP  C$PNTF 
037466 062706 000006 ADD #6,SP 
91 037472 012746 010070 MOV #FRMT16,-(SP) 
37476 012746 000001 MOV #1,-(SP) 
037502 0106 MOV SP.RO 
| 037504 104417 TRAP CSPNTF 
037506 062706 000004 ADD #4,SP 
92 037512 012702 000004 MOV #4-R2 
93 037516 012701 000067 MOV #67,R1 
34 037522 012703 (00005 4$: MOV #5,R3 
96 037526 012746 006420 MOV #CRLF ,=(SP) 
037532 012746 000001 MOV #1,-(SP) 
037536 010600 MOV SP.R 
037540 104417 TRAP CSPNTF 
037542 062706 000004 ADD #4,SP 
97 037546 004737 015400 5$: JSR PC; DRVCLR 
98 037552 004737 017252 JSR PC-NEXLOC 
99 037556 017746 142770 MOV @RPER2, -(SP) 
100 037562 042716 177400 BIC #177400, (SP) 
101 037566 005726 TST (SP) 
102 037570 001427 BEQ 
103 037572 005746 TST =(SP) 
104 037574 004737 015416 JSR PC ,OCTHEX 
106 037500 012746 002660 MOV #PSTACK+6,-(SP) 
037604 012746 002656 MOV #PSTACK+4.=(SP) 
037610 012746 002654 MOV #PSTACK+2,-(SP) 
037614 012746 002652 MOV #PSTACK,~(SP) 
037620 012746 010161 MOV #FRMTi7,-(SP) 
037624 012746 000005 MOV #5,-(SP) 
037630 010600 MOV SP,RO 
037632 104417 TRAP CSPNTF 
037634 062706 000014 ADD #14,SP 
107 037640 005303 DEC R3 
108 037642 003341 BGT 5$ 
109 037644 005302 DEC R2 
110 037646 003325 BGT 4$ 
111 037650 6$: 
112 037650 012746 006420 MOV #CRLF (SP) 
037654 012746 000001 MOV #1,-(SP) 
037660 010600 MOV SP_RO 
037662 104417 TRAP  C$PNTF 
037664 062706 000004 ADD #4,SP 


SEQ 0175 


3GET THE SET-UP FOR THE #OF RECAL ATTEMPTS(88 HEX) 
7NO FURTHER ERRORS 

3GET THE DATA a 

GET THE RESULTS 

3ST RIP THE UNWANTED DATA 

PRINT THE NUMBER OF RECAL ATTEMPTS 


:PRINT ERROR LOG ENTRIES, IF ANY 


GET A 4 ITERATION COUNT 
3GET THE Ag RAM LOCATION=-1 FOR THE LAST 20 ERRORS 
35 BL esse ROW 


:NO FURTHER wiry 
RAM DATA 


NCH I 
TRESTORE Ly STACK FOR OCTHEX 
; CONVERT HEX 
DUMP THE "RAM CONTENTS 


2 ONE LESS ROW TO GO 
;KEEP GOING 

ONE LESS COLUMN TO GO 
KEEP GOING 


CCRCLE 


H 14 
07 FE/HOST ISOLATOR MACRO V04.00 1=JAN-83 13:37:00 PAGE 87-3 
ROR LOG DUMP 


rer0 O06 732 015400 JSR PC,DRVCLR 
004737 015312 JSR PC ,DIAGEN 

* 60 L10102: 

7700 104401 TRAP CSETST 


sRESET RPER2 TO 0 
sSHUT OFF THE DIAGNOSTIC MONITOR 


SEQ 0176 


a0 | 


| 1 14 
bs RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 88 SEQ 0177 
TEST 53 COMPOSITE MICROCODE TEST 


, .SBTTL TEST 53 COMPOSITE MICROCODE TEST 
3 2 TEST 53 COMPOSITE MICROCODE TEST 
4 7% TEST RUNS TWO SEQUENCES OF MICRODIAGNOSTICS THROUGH, THE 
5 :% RPL, THE FIRST SEQUENCE IS COMPRISED OF ROUTINES 
6 % THE SECOND SEQUENCE IS COMPRISED OF ROUTINE - 
? :% OOP ON ERROR OPTION IS SELECTED, THE ROUTINE WHICH WAS RUNNING 
8 :% AT THE TIME OF THE ERROR WILL BE ‘FROZEN’ SO THAT THE ERROR MAY 
9 7% BE ANALYZED FURTHER TO IDENTIFY THE FAILURE MECHANISM. 
10 :% TEST ALGORITHM IS AS FOLLOWS: 
11 2% TURN ON THE DIAGNOSTIC MONITO 
12 i LOAD RPMRT WITH A DIAGNOSTIC NUMBER (AND HEAD NUMBER IF NECESSARY) 
14 :% ISSUE A DIAGNOSTIC COMMAND 
13 3 IF RPER2 (LOW BYTE) <> 0 
it 4 :% pREPORT THE ERROR (IN HEX), AND THE MODULE CALLOUT 
9 i oa UNTIL ALL ROUTINES HAVE BEEN RUN 
21 :% : TURN OFF THE DIAGNOSTIC MONITOR 
32 7% END TEST 53 
24 037702 153:: 
25 037702 012704 000044 MOV #44,R4 :SET UP THE FIRST ROUTINE NUMBER 
26 037706 004737 016662 JSR PC,SEIZ [LOAD THE DRIVE NUMBE 
27 037712 004 015260 JSR CDIAGST ‘AND THEN THE "HANDSHAKE" 
28 037716 005002 CLR R2 ‘R2 USED FOR THE TRACK ADDRESS 
29 037720 000304 1$: SWAB RG 'R4 HIGH BYTE USED FOR THE ROUTINE # 
30 037722 2$: 
037722 104404 TRAP CSBSEG 
31 037724 004737 015352 JSR PC,DIAGLD yNOW EXECUTE THE ROUTINE NUMBER 
32 037730 017746 142616 MOV oRbrRO” USP) *GET THE pRESULTS OF THE TEST 
33 037734 042726 177400 BIC #177400,(SP)+  :STRIP J 
34 0 001414 BEQ 3$ s1F 0, YES"! 
35 037742 104456 TRAP C$ERHRD 
037744 000620 WORD 
037746 013564 “W EN35 
36 037752 012737 040011 002420 MOV #TRE !DRCLR, FUNCTN :LOAD THE DRIVE CLEAR AND CONTROLLER CLEAR COMMAND 
37 037760 004737 015146 JSR PC DRIVER NOW EXECUTE THE DRIVE CLEAR COMMAND 
38 037764 052777 100000 142544 . BIS #0MD,@RPMR1 [SET THE DIAGNOSTIC MODE BIT AGAIN 
037772 10000$: 
037772 104405 TRAP  C$ESEG 
40 037774 000304 SWAB RG SRESTORE R4 
41 037776 005204 INC R4 *GET NEXT ROUTINE # 
42 040000 120427 000037 CMPBsaRG, #37 :1$ THIS A READ/URITE ROUTINE? 
43 040004 103745 BLO 1$ :VALID ROUTINE P GOING 
44 040006 120427 000043 CMPB RG, #43 :READ-WRITE R 
45 040012 101035 BHI 5$ HIGHER, NOY 
46 040014 000304 SWAB RG ‘Re OUTINE # IN HIGH BYTE 
47 040016 005737 002336 TST SELTRK SUSER SPECIFIED TRACK ADDRESS?? 
48 040022 001411 BEQ 4$ :I1F ZERO, NO-DO THEM A 
49 040024 010446 MOV R4,=(SP) :GET R4 ON THE STACK FOR Some CHECKING 
50 040026 042716 000377 BIC #377, (SP) ‘STRIP THE TRACK ADDRESS 


51 040032 022627 021400 CMP (SP)+,#21400 WAS THIS THE LAST ROUTINE? 


ao | 


moo aa ee ee 
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TEST 53 COMPOSITE MICROCODE TEST 


52 040036 001431 BEQ 6$ sIF =, YES IT WAS!! 
53 040040 053704 002340 BIS TRAKAD ,R4 SET THE USER SPECIFIED TRACK ADDRESS 
54 040044 000726 B AND GO-ON 
55 040046 162704 000400 4$: SUB #400,R4 ‘CET THE LAST ROUTINE # (WE MAY NOT BE DONE) 
| 56 040052 040204 BIC R2,R4 SRESET THE TRACK ADDRESS 
57 040054 005202 INC R2 [NEXT TRACK ADDRESS, PLEASE 
| 58 040056 050204 BIS R2,R4 [LOAD THE NEW TRACK” ADDRESS 
9 040060 020227 000037 CMP R2.#31. [WAS IT LEGAL 
60 040064 101716 BLOS 2$ :YES IT WAS, Meo ON 
61 040066 105004 CLRB RG :RESET TO TRACK 0 
62 040070 005002 CLR R2 D RESET THE TRACK TO 0 
63 040072 062704 000400 ADD #400,R4 ET NEXT ROUTINE # 
64 040076 020427 021400 CMP R4, #21400 SIS THIS ROUTINE #43 (HIGH BYTE INFO)? 
65 040102 103707 BLO 2$ TIF LESS, NO 
6 040104 000406 BR 6$ :DONE TURN OFF THE MONITOR 
67 040106 120427 000073 S$: CMPB RG, #73 SEND ROUTINE? 
68 040112 101702 BLOS =-*'1$ [NOT YET, IF LOWER 
69 040114 012704 000030 MOV #30,R4 [LOAD THE NEXT SEQUENCE OF ROUTINES 
70 040120 000677 BR 1$ SAND KEEP GOIN 
71 040122 004737 015312 6$: JSR PC ,DIAGEN TALL DONE, SHUT-OFF THE DIAGNOSTIC MONITOR 
72 040126 L10103: 
040126 104401 TRAP — CSETST 


c 
| 
! 
| 
| 
| 


SEQ 0178 


ae 


“ao 
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| aes 54 READ-IN-PRESET FUNCTIONAL T 


J .SBTTL TEST 54 READ-IN=-PRESET FUNCTIONAL TEST 
8 7% TEST 54 _READSIN-PRESET FUNCTIONAL TEST 
4 7% : A WITH DATA PATTERN #3 
5 :% UR ITE RPDC WITH DATA PATTERN #3 
6 7% SET RPOF: FMT = 1 
7 7% issue A READ-IN-PRESET COMMAND 
| 8 ik : 1 CCRPDA) OR (RPDC) OR (RPOF: FMT) <> 0 
10 7% OUTPUT ERROR MESSAGE (RIP COMMAND FAILED TO EXECUTE PROPERLY) 
11 7% OUTPUT FAULT LIST: J12 
12 7% : ENDIF 
13 3% END TEST 54 
15 040130 T54:: 
16 040130 012737 000012 002402 MOV #10.,1TCOUN ZLOAD THE ITERATION COUNT 
17 040136 032777 010000 142360 BIT #MOL ,ARPDS [DRIVE ON-LINE? 
18 040144 001016 BNE 1$ t1F = 1, YES 
19 040146 004737 017326 JSR PC, SAVRPR :GET THE REGISTER IMAGE 
20 040152 013746 002114 MOV LSTEST, (SP) 
040156 012746 006452 MOV MSGMOL ,-(SP) 
040162 012746 000002 MOV #2,-(SP) 
0166 010600 MOV SP,RO 
040170 104417 TRAP  CSPNTF 
040172 062706 000006 ADD #6,SP 
24 040176 104432 TRAP  C$EXIT 
040200 000162 .WORD 110104-. 
25 040202 1$: 
040202 104404 TRAP C$BSEG 
040204 004737 016662 JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
27 040210 013777 002350 142302 MOV PATS. @RPDA [WRITE PRDA = 1 
28 040216 013777 002350 142322 MOV PATT3,aRPDC ZUAITE RPDC = =1 
29 040224 052777 010000 142312 BIS #FMT ,ARPOF :FMT 16 = 1 
040232 012777 000021 142252 MOV #RIP.@RPCS1 + TSSUE THE READ=1 N=PRESET COMMAND 
31 040240 005777 142254 TST @RPDA :DID RPDA CLEAR 
32 040244 001405 BEQ 2$ :1F 0, YES! 
33 040246 004737 017422 JSR PC,BICEXP ‘FORM THE FAILING DATA 
34 040252 002520 RPDA ; THIS T 
35 040254 177777 177777 STHESE BITS FAILED TO CLEAR 
040256 000420 BR 4$ -ON 
37 040260 005777 142262 2$: TST @RPDC ‘DID _RPDC CLEAR? 
40264 001405 BEQ s1F = 0, Y¥ 
39 040266 004737 017422 JSR PC,BICEXP FORM THE ER ILING DATA 
40 040272 002546 RPDC ‘THIS REGISTER 
41 040274 177777 177777 STHESE BITS FAILED TO CLEAR 
42 040276 000410 BR 4$ ‘NOW REPORT THE ERROR 
040300 032777 010000 142236 38: BIT #FMT, a@RPOF DID FATI6 CLEAR 
040306 001417 BEQ TIF 0, Y 
45 040310 004737 017422 JSR PC,BICEXP [FORM THE FAILING DATA FOR THIS FAILURE 
46 040314 002544 RPOF iTH IS REGISTER 
47 040316 010000 FMT :THIS BIT FAILEDS TO CLEAR 
48 040320 012737 004000 002404 4$: MOV #B1T11,ERRWD1  :FORM MODULE CALL-OUT 
49 040326 005037 002406 CLR ERRWD2 ‘BOTH WORDS 
50 040332 104456 TRAP  CSERHRD 
40334 000127 .WORD 87 
040336 013326 -WORD €&M30 
040340 014172 .WORD ERRO 


SS SS 


----——- +--+ -- eee ee + -- ee 
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TEST 54 READ-IN-PRESET FUNCTIONAL T 


51 040342 005037 002402 CLR ITCOUN 3NO ITERATIONS NOW!! 
52 040346 5$: 
040346 10000$: 
040346 104405 TRAP CSESEG 
53 040350 005337 002402 DEC ITCOUN 3 ONE Pg 5s ITERATION 
54 040354 00331 BGT 1$ cif < DONE! ! 
55 040356 004737 017722 JSR PC ,PRELOD ;PuT DRIVE BACK IN 16 BIT MODE 
56 040362 L10104: 
040362 104401 TRAP CSETST 


] 


=m 


ooo 
WW 


SCVONAUEWN =O OONOUEwr— 
oO io 
EVSNF 


ft 2 ss 
RRRRREK 


tad 
Orn 


040472 


46 040572 
040574 
040576 
040600 

47 040602 

48 040606 
040606 
040606 





012737 


005037 


104405 


000012 
010000 


017326 


002350 
002350 
002520 
141770 


017000 
100000 


017372 
004000 
002406 


002402 


002402 
142124 


002404 
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TEST 55 COMMAND REJECT TEST 


SEQ 0181 


-SBTTL TEST 55 COMMAND REJECT TEST 
TEST 55 COMMAND REJECT TEST 
: SET RPCS2: PAT = 1 
WRITE RPDA WITH DATA PATTERN #3, ONCE 


PereReRe TLL TL TL IL TLZL 


“4 
w 
wn 
oe 


1$: 


3$: 


4$: 
10000$: : 


a a 


ISSU 
IF ((RPDS: 


: ENDI 
END TEST 55 


#10., 1 TCOUN 
#M0. PDS 


L, 


PC, SAVRPR 
L$TEST,=(SP) 
#MSGMOL ,-(SP) 
#2,=(SP) 
CSPNTF 

#6,SP 

CSEXIT 
L10105-. 
C$BSEG 


PATTS. @RPAS 


PC,WAIT 
#RIP MARPCSI 
PATS, @RPDA 
PATT3,EXPTED 
RPDA, TESTRG 
QRPDARCVED 


PC,WAIT 
#ATA,ARPDS 


PC ,BISEXP 


#81711 ,ERRWD1 
RWD2 
CSERHRD 
EM30 
RO 
ITCOUN 


mmoomm 
DSZOwD 


CSESEG 


WRITE RPAS WITH DATA PATTERN #3, ONCE 
E_A_READ-IN-PRESET COMMAND 
ATA <> 1) OR (RPDA <> DATA PATTERN #3)) 


THEN 
OUTPUT ERROR MESSAGE (COMMAND EXECUTED WITH ERRORS PRESENT) 
A he FAULT LIST: J12 


3LOAD THE fim COUNT 
sDRIVE ON~LINE? 


sIF_ = 1, YES 
GET THE REGISTER SNAPSHOT 


GET THE DRIVE UNDER TEST 
sINVERT PARITY (FORCE ERRORS) 
SWRITE RPDA = ~ 1 


3WRITE RPAS = = 1 
;NOW WAIT FOR THE 8080 TO DETECT THE PARITY ERROR 
z ISSUE A A READ~IN-PRESET 


IF OK, (MATCH) GO-ON 
FORM THE EXPECTED DATA 
7GET THE FAILING REGISTER 
3NOW THE FAILING RESULTS 
sNOW REPORT IT 
STALL _FOR RPO? MICROPROCESSOR DELAY 
DID A ATA CLEAR 


S REGISTER 
:THIS BIT FAILED TO SET 
FORM MODULE CALL-OUT 
BOTH WORDS 


NO ITERATIONS NEEDED 


ao | 


— 


| 
‘Nest’ 
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COMMAND REJECT TEST 
49 040610 005337 002402 DEC ITCOUN 
0 040614 00331 BGT 1 s1F <= 0, 
040616 004737 017722 JSR PC,PRELOD :16/B1T MODE 
040622 L10105: 
040622 104401 TRAP CSETST 


sONE LESS ITERATION TO-GO 


SEQ 0182 


=o 
wins 


Sa ERS SES ASLAN Spiga I AN Wri INE Rae mc 
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TEST 56: DATA TEST #1 


J .SBTTL TEST 56: DATA TEST #1 
3 % TEST DATA TEST #1 FIRST DATA TEST OF THE MASSBUS DATA LINES 
4 7% SET UP A (TOGGLE) BIT MAP FOR ALL EXPECTED BITS (BITS 0 TO 15) 
5 :% SEi UP FOR A RETRY OF 20128 ITERATIONS (629 * 32) 
6 :% SET RPDC = 0 
? % SET RPDA = 255(.) 
8 :% REPEAT 
9 7% SET RPOF: CMOD = 1 
10 :% ISSUE A READ TRACK DESCRIPTOR COMMAND 
11 2% IF (RPCS1: TRE) OR (RPDS: ERR) = 1 
12 3% al 
13 37% SET RPCS2: CLR = 1 
14 % INCREMENT THE RETRY COUNTER 
15 7% RELOAD THE DRIVE NUMB 
16 :% IF RPDA < LAST TRACK ADDRESS (32-RP07) 
17 7% : THEN INCREMENT RPDA (HIGH BYTE ONLY) 
18 :% ELSE CLEAR. RPDA (HIGH BYTE) 
19 2% INCREMENT PDC 
20 3% NDIF 
21 33 ELSE 
22 :% STORE TD WORD “1 AND WORD #2 
23 7% MARK OFF BITS WHICH JUST TOGGLED FROM OFF TO ON, IN BIT MAP 
24 7% INCREMENT RPDA (HIGH BYTE ONLY 
3 2% IF RP RPDA (HIGH BYTE) > LAST TRACK ADDRESS (32-RP07) 
27 7% SET RPDA (HIGH BYTE) = 0 
28 :% INCREMENT RPDC 
29 7% : ELSE 
30 7% INCREMENT RPDA (HIGH BYTE ONLY) 
? fs init! 
33 4 i pittdt ort MAP=ALL BITS UNDER TEST HAVE TOGGLED) OR (RETRY MAX EXCEEDED) 
3 :% IF BIT MAP DIDN'T COMPLETELY TOGGLE, AND RETRY COUNT > MAXIMUM (20128) 
37 :% OUTPUT ERROR MESSAGE (DATA LINES STUCK OR OPEN) 
38 :% iy ypoyrPut FAULT LIST: J11 / J13, CABLES, RHXX, J10, TERMINATOR 
40 7% END TEST 
42 040624 156:: 
43 040624 004737 016662 JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
44 040630 032777 010000 141666 BIT #MOL ,ARPDS ‘1S THE DRIVE REALLY ON-LINE? 
45 040636 001016 BNE 1$ SIF SET, IT IS ON-LINE 
46 040640 004737 017326 JSR PC, SAVRPR *GET THE REGISTER SNAPSHOT 
47 040644 013746 002114 MOV L$TEST,-(SP) 
040650 012746 006452 MOV #MSGMOL, -(SP) 
040654 012746 000002 MOV #2,-(SP) 
040660 010600 MOV SP,RO 
040662 104417 TRAP  CS$PNTF 
062706 000006 ADD #6,SP 
51 040670 104432 TRAP = CSEXIT 
000262 .WORD 110 


2 002402 1$: MOV #10. UN LOAD THE ITERATION COUNT 
53 040702 012737 7 002454 D :SET UP FOR THE EXPECTED RESULTS 


54 040710 2$: 


a ee a ee 








—= 





| 
mn 


T 56: DATA T 
104404 


— 


80 041056 003374 
81 041060 023737 
82 041066 001426 
83 041070 023727 
84 041076 103003 
85 041100 004737 
86 041104 000722 
87 041106 013737 
88 041114 012737 
89 041122 012737 
90 041130 104456 

041132 001440 

041134 013362 

041136 014172 
91 041140 005037 
92 041144 

041144 

041144 104405 
93 041146 005337 
94 041152 003256 
95 041154 

041154 104401 


040000 
040000 
016662 
000006 
02452 
002452 
002432 
017266 
002534 


013000 
000406 


002402 


002402 


002414 


141564 


002412 


141504 
141462 


002454 
047200 


002456 
002404 
002406 


3$: 


4$: 


5$: 
6$: 
7$: 


8$: 


9$: 


10$: 
10000$: 


L10106: 


C 15 
Se RPO? da apenas MACRO V04.00 1-JAN-83 13:37:00 PAGE 91-1 


CSBSEG 
4, TORE 
SvEe 


DES CYL 
#377 ,DESTRK 


#6,R 
MPSTACK,R2 
(R2)+ 

R] 


3$ 
#CMOD , @RPOF 


#6,N 
PC,DRIVER 
CSTORE 
#ERR ,ARPDS 


#TRE ,@RPCS1 


PC, SEIZE 
8$ 


#6,R1 
#PSTACK,R2 


(R2)+,RCVED 
R1 


7$ 
RCVED ,EXPTED 


CLEAR THE BITS RECEIVED COUNTER 
CLEAR THE RECEIVER OF THE DATA 
START AT CYLINDER 0 

SAND TRACK 

:GET AN ITERATION COUNT 


IER 
COMMAND = READ TRACK DESCRIPTOR 
SLOAD BUFFER LINK 
sSET_WORD oe 
200 THE oP 


ERATION NOW! 
W THIS pig Ed IN THE COUNTER 
7DID WE GET AN ERROR? 


zIF SET, YES 

:D1D WE GET A jon uate Tiaees 
THE TRANSFER W 

Get RID OF ERRORS Now 


sGET THE ITERATION COUNT 
AND THE BUFFER ADDRESS 
L0G THE BIT(S) Jian cae 
duce THE Bt COUNT 
KEEP GOING! 


TF 
ZALL "sits TOGGLE? 


cIF SAME, Y 
CSTORE ,#<628.*32.> ;DONE ALL CYLINDERS? 


PC, SPIRAL 
4$ 
RPDB, TEST 


RG 
#1T9:B1T10:B1 


ERRO 
ITCOUN 


CSESEG 
ITCOUN 
2$ 


CSETST 


on 


YES, THERE IS AN ERROR 
SUPDATE THE DRIVER 


*LOAD FAILING "REGISTER" 
12, ERRWD1 ;CREATE MODULE CALL-OUT 


TB LERRUDS ;BOTH WORDS 


NO FURTHER ITERATIONS NECESSARY 


3 ONE tte ITERATION TO GO 
:D0 UNTIL = 0 


—_ 


A ee ooo — — - g 
D 15 
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TEST 57: DATA TEST #2 | 
j .SBTTL TEST 57: DATA TEST #2 
3 % TEST DATA TEST #2 TEST INVALID ADDRESS ERROR, RECALIBRATE & SEEK COMMANDS 
4 7% : SET RPDC = FE CYLINDER ADDRESS 
5 :% : SEI RPDA = 0 
6 7% : SET RPOF: CMD 
7 % : CLEAR RMPM1: DMD 
x :% : ISSUE SEEK COMMAND 
9 % IF RPER1: [AE <> 1 
10 7% : THEN 
11 7% : OUTPUT ERROR MESSAGE (FAILED TO DETECT AN INVALID ADDRESS ERROR) 
12 i : OUTPUT FAULT LIST: 09, J10, J08, JO7, J12, RHXX, CABLES, TERMINATOR 
14 % : SET RPCS2: CLR =1 
15 :% : issue SEC ALIGRATE COMMAND 
16 i : IF «¢ RPCSI: TRE) OR (RPDS: ERR)) = 1 
18 :% : OUTPUT ERROR MESSAGE (DETECTED ERRORS AFTER ISSUING A RECAL IBRATE COMMAND) | 
19 ik : OUTPUT FAULT LIST: JO9, J10, J1i2, CABLES, RHXX, TERMINATO 
21 :% : SET RPOF: CMD = 1 
22 % SET RPMR1: DMD = 1 
23 :% SET RPDC = FE CYLINDER 
24 :% ISSUE A SEEK COMMAND 
25 ik IF RPDC <> RPCC AND ((RPDS: ERR <> 1) OR (RPCS1: TRE <> 1)) 
27 :% : + OUTPUT ERROR MESSAGE (DIDN'T ACCESS FE CYLINDER PROPERLY, DIDN'T DETECT AN 
38 i of QurPuT FAULT LIST: JO9, J10, RHXX, CABLES, J12, TERMINATOR 
30 ik IF RPC <> RPCC AND ((RPDS: ERR = 1) OR (RPCS1: TRE = 1)) 
32 :% OUTPUT ERROR MESSAGE (DIDN'T ACCESS FE CYLINDER PROPERLY, DID DETECT FRR’ 
33 i i yout FAULT LIST: JO9, J10, JO8, JO7, RHXX, CABLES, J12 
35 :% SENOIE 
36 2% END 
37 % END NEST 
39 041156 T57:: 
40 041156 013737 002376 002416 MOV LASCYL,DESCYL ;FORM THE CE CYLINDER ADDRESS 
41 041164 005237 002416 INC DESCYL SIT IS ONE MORE THAN THE END CYLINDER 
42 041170 005037 002414 CLR DESTRK ‘START AT TRACK #0 
43 041174 004737 016662 JSR PC, SEIZE :GET THE DRIVE UNDER TEST 
44 041200 032777 010000 141316 BIT #MOL ARPDS 71S THE DRIVE ON LINE?? 
45 041206 001016 BNE is tI1F 1, IT IS 
46 041210 004737 017326 JSR C,SAVRPR [GET THE REGISTER SNAPSHOT 
47 041214 013746 002114 MOV istest = (SP) 
041220 012746 006452 MOV #MSGMOL,-(SP) 
041224 012746 000002 MOV #2,-(SP) 
041230 910600 MOV + 
041232 104417 TRAP — CS$PNTF 
041234 062706 000006 ADD #6,SP 
51 041240 104432 TRAP = CSEXIT 
041242 000432 «WORD 110107-. 
52 041244 1$: 
41244 104404 TRAP  C$BSEG 
53 041246 052777 100000 141270 BIS #CMOD, aRPOF :SET COMMAND MODIFIER 


eee eae SLL See a Fal 


/CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 5.1 -1 SEQ 0186 
‘Test 57: DATA TEST #2 


| 54 041254 042777 100000 141254 BIC  #DMD.aRPMR1 ;AND FAIL TO SET DIAGNOSTIC MODE (FORCE ERRORS! !) 
| 5§ 041262 012737 002652 002366 MOY APSTACKTABADD D0. THE LINK TRANSFER ADDRESS 
| 56 041270 012737 000006 002412 MOV «#6, NEGWRD tAND SET UP A WORD COUNT 
| 57 041276 012737 000005 002420 MOV «SEEK, FUNCTN = :LOAD A SEEK COMMAND 
58 041304 004737 015146 JSR —«PC DRIVER ‘NOW ISSUE THE COMMAND 
59 041310 004737 017000 JSR PCLWAIT :WAIT FOR THINGS TO SETTLE DOWN 
| 60 041314 022777 002000 141204 CMP —s-s MAE, aRPER1 ;DID WE GET AN INVALID ADDRESS ERROR? (ONLY??) 
| 61 041322 001423 BEQ 2s F = Wes WE DID! 
| 62 041324 012737 002000 002454 MOV _—«s #IAE EXPTED FORM THE EXPECTED DATA 
63 0413382 017737 141170 002452 MOV _— ARPERT RCV ED : FORM THE RECEIVED DAT 
| 64 041340 013737 002526 002456 MOV RPER1, TESTR REGISTER FAILED THE TEST 
65 041346 012737 005700 002404 MOV RBITOIBITTIGITBIBI TO Brita ERRWD1;LIST THE MODULE CALLOUT 
66 041354 012737 000406 002406 MOV, #8111 :B1T2!B1T8, ERRWDZ;FOR BOTH masks 
67 041362 104456 TRAP —-CSERH 
041364 001441 WORD 801 
041366 012454 "WORD EM14 
041370 014172 “WORD ERRO 
| 68 041372 2$: 
| 041372 100008: 
041372 104405 TRAP —CSESEG 
69 041374 104404 TRAP — C$BSEG 
70 041376 004737 016662 JSR —sPC SEIZE PURGE ERRORS, AND RELOAD THE DRIVE NUMBER 
71 041402 012737 000007 002420 MOVs WRECAL,FUNCTN NOW SET A RECALIGRATE COMMAND IN THE QUEUE 
72 041410 004737 015146 JSR —s- PC DRIVER ZEXECUTE THE COMMAND NOW! 
73 041414 004737 017000 JSR ss PC LWAIT WALT FOR SOME SETTLE TIME 
74 041420 032777 040000 141064 BIT  #TRE,aRPCS1 ; TRANSFER ERRO 
75 041426 001405 BEQ NOPE WOT TF ERO 
76 041430 004737 017422 JSR «PC, BICEXP SNOAD THIS FAILURE STATUS 
77 041434 002512 RPCS1 sTHIS REGISTER 
78 041436 040000 TRE THIS BIT. SET AND SHOULDN'T HAVE 
79 041440 000410 BR 4$ NOW REPORT THE F 
80 041442 032777 040000 141054 33: BIT  #ERR,@RPDS {DID WE GET AN ERROR SUMMATION BIT?? 
81 041450 001420 BEQ “NOT IF ZERO 
82 041452 004737 017422 JSR «PC, BICEXP FORM THIS ERROR!! 
83 041456 002524 RPDS [THIS REGISTER FAILED 
84 041460 040000 ERR [THIS BIT SET AND SHOULDN'T HAVE 
85 041462 012737 005400 002404 4S: MOV « #BITB'BIT9!BIT11ERRWD1;FORM THE MODULE CALLOUT 
86 041470 012737 000406 002406 MOV §- #BIT1'BIT2‘BIT8,ERRWD2;FOR BOTH MASKS 
87 041476 104456 TRAP — CSERHRD 
041500 001442 . WORD 
041502 013051 : EM23 
041504 014172 “WORD ERRO 
88 041506 004737 016662 JSR «SOP SEIZE RESET THE ERROR CONDITION 
89 041512 5$: 
041512 10001$: 
041512 104405 TRAP _— CSESEG 
90 041514 104404 TRAP  C$BSEG 
91 041516 052777 100000 141012 BIS #DMD, aRPMR1 AND NOW SET DIAGNOSTIC MODE 
92 041524 012737 000005 002420 MOVs #SEEK,FUNCTN :LOAD A SEEK COMMAND 
93 041532 004737 015146 JSR —«-PC DRIVER DO THE SEEK NOW! 
94 041536 004737 017000 JSR PC WAIT SETTLE TIME.. 
95 041542 027777 141000 141000 CMP —s- RPC, ARPCC :DID WE GET ONCE INDER?? 
96 041550 001446 BEQ 7$ YES, TEST PASSES 
97 041552 017737 140770 002454 MOV -—« @RPDC,EXPTED = :LOAD THE ERROR STATUS 
98 041560 017737 140764 002452 MOV — ARPCC-RCVED ZEXPECTED VS RECEIVED 
99 041566 013737 002550 002456 MOV _—RPCC, TESTRG ‘AND THE FAILED’ REGISTER 
100 061574 032777 040000 140722 BIT HERR ARPDS “LOOK FOR ERROR BITS 


7 


— 


re 
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TEST 57: DATA TEST #2 
101 041602 00° 917 BNE 6$ sWE DIDN'T GET ON-CYLINDER, BUT WE DETECTED AN ERROR 
102 041604 032777 040000 140700 BIT #TRE ,@RPCS1 DID WE DETECT A TRANSFER ERROR? 
103 041612 001013 BNE zIF = 1, YES 
104 041614 012737 005400 002404 MOV #B1T8!BIT9!BITI1,ERRWD1;LOAD THE MODULE CALLOUT 
105 041622 012737 000406 002406 MOV #BITIBIT2:B1T8,ERRWD2;FOR BOTH MASKS 
106 041630 104456 TRAP CSERHRD 
041632 001443 -WORD 803 
041634 012725 -WORD = EM21 
041636 014172 -WORD ERRO 
107 041640 000412 BR 7$ sNOW CHECK FOR LOOP... 
108 041642 012737 005700 002404 6$: MOV #81T6!B1T7!B1T8!B1T9!B1T11,ERRWD1;LOAD ALL THESE BITS FOR MODULE CALLOUT 
109 041650 012737 000006 002406 MOV #BITI!BIT2,ERRWD2; THESE BITS ALSO!! 
110 041656 104456 TRAP CSERHRD 
041660 001444 -WORD 804 
041662 012454 WORD EM14 
041664 014172 -WORD ERRO 
111 041666 004737 016662 7$: JSR PC, SEIZE END WITHOUT ERRORS 
112 041672 10002$: 
041672 104405 TRAP CSESEG 
113 041674 L10107: 
041674 104401 TRAP CSETST 


c-- + Oe ee ae ee ee e+ se —_—— -- — —- 
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T 58: DATA TEST #3 


Se 
J .SBTTL TEST 58: DATA TEST #3 
| 
| 3 3% TEST DATA TEST #3 READ TD°S, FORMAT, FORMAT VERIFY A SELECTED TRACK ON FE CYLINDEF 
4 3% THEN weatee- DATA TESTING ON THAT TRACK 
5 37% : VAR DO-REPEAT: BOOLEAN 
6 ry : VAR ETRY=COUNTER: INTEGER 
7 3% : SET RPDC = FE CY oo ADDRESS 
8 33% : SET DO-REPEAT = TRUE 
9 3% : SET 7. = 
10 3% : ISSUE A SEEK COMMAND 
iy 4 : IF — ERR) OR (RPCS1: TRE)) = 1 
13 3% : +: OUTPUT Fart MESSAGE (DIDN'T EXECUTE SEEK PROPERLY) 
i 4 : bw _ AULT LIST: J0O9, J10, JO8, JO7, CABLES, RHXX, TERMINATOR 
16 3% $ nat 
17 3% s s SET CMD = 1 
18 3k - issue 7: READ — DESCRIPTOR COMMAN 
ih % : oo: IF rs WORD #3 <> 1 100 000 000 000 000 OR (RPCS2: ERR OR RPCS1: TRE = 1) 
$3 if : IF Bs (HIGH BYTE) < LAST TRACK ADDRESS 
23 3% : : soe enees RPDA (HIGH BYTE ONLY) 
24 3% : : : : SET RPCS2: CLR = 
$2 ‘f —_ = ae ie THe DRIVE NUMBER FOR THE DRIVE-UNDER-TEST 
eo? 3% : : OUTPUT MESSAGE (INCORRECTLY FORMATTING TRACK #0, REFORMAT USING 
28 33 : : FORMATTER UPON COMPLETION OF THIS DIAGNOSTIC) 
29 3% : : SET DO-REPEAT = FALSE 
30 ry : ENDIF 
31 3% : ELSE 
32 3% : SAVE TRACK NUMBER FOR FOUND NULLSET TD 
33 33 : + are) TRACK FOUND WITH NULLSET TD eee 
te 3 : IF i oo" : ERR) OR (RPCS1: : TRE) = 1) 
36 ry : OUTPUT ERROR MESSAGE (FAILED DURING A FORMAT TRACK OPERATION) 
HH 73 ;.& 9 iow FAULT LIST: JO9, J10, J11 / J13, J14, RHXX, CABLES, TERMINATOR 
39 3k . &# 2 ser DO-REPEAT = FALSE 
40 3% s : EN 
41 3% : UNT tt ots DO-REPEAT 
42 3k $ ENDRE PEAT 
43 3% : ISSUE A WRITE-CHECK HEADER COMMAND (WITH RPOF: CMD = 1) 
ts 3 : I con ERR) OR (RPCS1: TRE) = 1 
46 3k : OUTPUT ERROR MESSAGE (FAILED OPERATION: WRITE-CHECK HEADERS, RPOF: CMD = 1) 
47 3% hide FAULT LIST: JO09, J10, J11 / J13, J14, RHXX, CABLES, TERMINATOR 
i ies Som 
50 3% WRITE A SECTOR USING DATA PATTERNS — 1 re 8, ONE AT A TIME 
51 3% IF (CRPDS: ERR) OR (RPCS1: TRE) = 1) 
52 ik : THEN 
53 33 INCREMENT RETRY-COUNTER 
54 ry IF RETRY COUNTER < 3 
55 4 : THEN 
56 ry GOTO A 
57 sk ELSE 


r 
i¢ 


| 


| 


| 





88 041676 
89 041702 
90 


041726 


042002 
101 pesone 
102 042012 


105 042030 





TEST # 


004737 


017722 
010000 


017326 


000002 


000006 


004000 


017326 
002114 
006522 
000002 


140614 


140550 


002416 


POTOSI TL TL IL TL IL IL IL FL TLIL TL FOIL IL IL ILTLILILILILILIL 


“4 
wi 
co 
ee 
* 


1$: 


758.1: 


ae Nee ces 


ENDIF 
ISSUE A RIP COMMAND 


F (CRPDS: 
THEN 


H 
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TEST 58: DATA #3 


1 


5 


OUTPUT ERROR M 


THEN GOTO B 


ELSE 
OUTPU, 


ENDIF 
CLEAR RETRY=COUNTER 


READ A_SECTOR USING DATA PATTERNS 1 19 8, ONE AT A TIME 
I ERR) OR (RPCS1: 


INCREMENT ween 
IF RETRY=COUNTER < 3 


OUTPUT FAULT L 
ENDIF 


E 
I 


SSAGE 
ST: 


OUTPUT FAULT LIST: 
NDIF 


SET UP ° 6 WORD TRANSFER 
SET RPO 


(FAILED 
J11/ J1 


TO WRITE 
3, J09, J1 


TRE) = 


J11 


CMOD = 1 
ISSuE_A READ HEADER AND DATA COMMAND 


A 
0, 


SEQ 0189 


SIMPLE DATA TRANSFER) 


I 
J 


14, CABLES, RHXX, TERMINATOR 


ERROR MESSAGE (FAILED_A SIMPLE READ TEST) 
/ 313, JO9, J10, J14, CABLES, RHXX, TERMINATOR 


THEN 
on ERROR MESSAGE (FAILED TO DETECT RPER1: FER) 

: SET RPOF: FMT16 = 

: RESET ALL DRIVE ERRORS 

END TEST 

JSR PC,PRELOD :GET THE DRIVE NOW 

BIT #MOL ,ARPDS [1S THE DRIVE ON LINE?? 

BNE 1$ ‘IF 1, IT 

JSR PC, SAVRP [GET THE REGISTER SNAPSHOT 

MOV L$TEST,=(SP) 

MOV #MSGMOL ,-(SP) 

MOV #2,-(SP) 

MOV SP,RO 

TRAP  CS$PNTF 

ADD SP 

TRAP  C$EXIT 

.WORD 110110-. 

BIT #WRL ,ARPDS z1S THE DRIVE WRITE LOCKED? 

BEQ 2$ 1F=0, 

JSR PC, SAVRP [GET tHe OREGISTER SNAPSHOT 

MOV L$TEST,-(SP) 

MOV #MSGWLO, =(SP) 

MOV 2,=(SP) 

MOV P-RO 

TRAP  CSPNTF 

ADD SP 

TRAP  C$EXIT 

.WORD 110110-. 

CLR DESTRK :TRACK ADDRESS (DESIRED) =0 

MOV LASCYL,DESCYL :GO TO LAST USER CYLINDER (DESIRED) 

INC DESCYL :GO TO FE CYLINDER (DESIRED) 


7 


ma 


CZR 
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T 58: DATA TEST # 


PRP SS 

Soundutene non 

NOUSWN—O OON 
SSSELEE 
an FSF 


—~— 
—— 
sooo 
MUS & SWAIN 


WN —O0dONOUSWN—oO 
Mnrn—— 
SNS ONS 


hk tk kd od 
NOw 


pat Sanh Ste? epee ph tN gh th yee Nabe 4 


tA Ht st st 
SRKRHKLLRRES 
CONAOULSWR oO 
Sooooo 
RERLELRE 
WAG 
— 
La) 


104402 


004737 


104405 
10 


052716 


001700 
000406 


015400 


002652 
000006 


000075 


002656 
015400 
017266 
002415 
007062 
000001 


000004 
006763 
000001 


000004 


040000 


040000 
002652 


100000 


002420 
140466 
140442 


002404 
002406 


002420 


002366 
140000 


002652 





3$: 
10000$: : 


4$: 
5$: 


6$: 


7$: 


C$BSUB 
CSBSEG 
#SEEK, FUNCTN 
#DMD ,@RPMR1I 
PC,DRIVER 


WA 
#377 ,aRPAS 
PC ,ERRCK 


ER 
PC,DRVCLR 


CSESEG 
C$BSEG 
#PSTACK ,R2 
6,R1 


f 
(Re) 

oH 

#RTD, FUNCTN 


#377 ,DESTRK 
#CMOD, om — 


#6 ,NEGWR 
#PSTACK. TABADD 


“IF 0, NO 
T8!BIT9,ERRWD1 
18, ERRWD2 


OAD UP A S©EK COMMAND 
SET 7 DIAGNOSTIC MODE 
ISSUE THE COMMAND 
sSTALL FOR SOME SETTLE TIME 
SCLEAR OUT THE RESULTING ATTENTION BIT 
;LOOK FOR ERRORS 
zIF ERRORS, THIS = =1 


FORM THE MODULE CALLOUT 
FOR BOTH WORDS 


RESET ERRORS 


s INITIALIZE A _ BUFFER 
3GET bond BUFFER SIZE 


3BU =0 
3 ONE uc + TO GO 
;SET_UP FOR A =< TRACK DESCRIPTOR OP 


i SECTOR ADDRESS= 
THE COMMAND oe thin seren A READ TD OPERATION 


SET FOR A 6 WORD T 
;LOAD THE LINK ADDRESS 


UE THE COMMAND 
STACK +4, 4140000" iz* neg ‘or NULL? 


PC ,DORVCLR 
PC, SPIRAL 
DESTRK+1 


4 

#MESG15,-(SP) 

#1,-(SP) 
P-RO 


CSPNTF 


#4,SP 
#MESG12,-(SP) 
RO 
CSPNTF 

#4,SP 

PC, pet: 
DESC Le tt 4 
#Biti3! BIT12 
#B1T14,PSTACK 
7$ 

#B1T14, (SP) 
PSTACK 


#B1T15, (SP) 


F NOT 0, NO TRY AGAIN 


;CLEAR OUT ANY ERRORS NOW!! 
GET THE hy CYLINDER ADDRESS 


(SP) AND M ASK IT TO REPRESENT A TD 


WAS _TH HE’ TD MO 
ERO, NO 
iSET THE CORRECT BIT 
BIT 15 SET? (HEADER 0 MOVED) 
zIF ZERO, NO 
;SET THE SAME BIT IN THE MASK 


-——___—— 
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TEST 58: DATA T 


rororr 
see 
mNoe 
eh Me Lo lol=] 


4) 2s 9 9)  ) 


Oo 
aRNVOWe 


RRR RSW 
Z°2°°S8 


RELLLLREREERE « 


R 

Mn 
inno 
SOR 


WhO 0OoOn 


Oo 

x 

Nm 
PS 

“. 


oo 


ERVIN RAOVOONANARVORRT 


WR 9 OONAUSWN—OOOnNOuU 
Wns & 


kkk kk kk kk kk kk kd dd td dd dd od 
NMoronrorr 
an 
on 


Fwnr 0 0Oon 


042640 
197 042642 


ag 8 74) 
—2 23 3 [207° 

MOWN—fT 
VINE ew 


-0-0 
w—O— 


s 
NNNVONNONNGS 
FISERSSSS 


ppt he AP? TO a A yh a Ir 
“ onnt 


o-oosco 
=-Oo0OuN= 


004737 


104405 
104404 


000031 
000062 


002416 
150000 


000004 


002466 


033400 
000406 


015400 


8$: 
002404 


002470 


9$: 
002414 


10$: 


140022 


11$: 


12$: 


002366 


137752 


002404 
002406 


13$: 
10001$: 


(SP)+,PSTACK 
#81T8!B1T9!B 


IT1 
#B1T1!BIT2:B1T8 


STRK,R2 
R2,R3 
#25. 43 

#50. ,R5 
DESCYL,(R1) 
Naeae (R1)+ 


ng, (R1)4 
#ILEV,aRPDS 
12$ 


0 
PC,DRVCLR 


CSESEG 
C$BSEG 


LOOK 
rioieirig:eir15, ERRWD1 


a te 


EQU 
of ibrrioiei tis. Ean! set UP THE MODULE CALLOUT 
,ERRWD2:FOR BOTH 

SFORM THE DATA FOR The ERROR REPORT 

SAND THE EXPECTED DAT 

SLOAD THE FAILING PUNCTON 


3GET THE seacta BUFFER ADDRESS 
:SECTOR A | = 0! 

OAD THE ct FFER TRACK ADDRESS 
FOR AN_INTERLEAVED F 
STHIS IS THE HIGH OR ‘‘ODD'' SECTOR 
17 STARTS AT SECTOR ADDRESS 25 
SINITIALIZE ys EF IT*S A TOGGLE REGISTER 

# OF SECTORS/TRACK 
SCYLINDER ADDRESS 
;MARK SECTOR GOOD, i" 16 BIT MODE 
;D0 THIS TO GET NEXT SECTO 
1T'S =1, LOAD HIGH OR "ODD'* SECTOR 
LOAD LOW SECTOR 
UPDATE THE SECTOR COUNT 
oR ERO poem saves ENABLED? 


AND TOGGLE. 


ON. 
SLOAD HIGH SECTOR 
UPDATE SECTOR COUNT 


3 L 

LOAD THE NULL~CASE 
2FOR ALL FOUR WORDS 
3TH an a D 


FOURTH WORD 

; ONE less SECTOR TO DO 
BUT GO ON UNTIL 0 
7RELOAD ye! ay: ADDRESS 

;LOAD UP FOR A FORMAT TRACK OPERATION 
oan THE UORD nt (314<8> EFF1) 


LOAD THE MODULE CALLOUT LIST 
ERRWD2 ;FOR BOTH MASK WORDS 


RELOAD AND RESET ERRORS! 


SEQ 0191 


ee a Ee — a = r 


Kk 15 
“CZRIMAO RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 98-4 SEQ 0192 
TEST 58: DATA TEST #3 


198 042644 012737 000053 002420 MOV MWCKHD,FUNCTN ;LOAD UP A WRITE=CHECK HEADERS COMMAND 
199 042652 01 208 002732 MOV WIOBUFF+2,R2 SET-UP TO REARRANGE THE BUFFER 
200 042696 012703 000062 MOV #50. ,R3 :THIS IS THE ITERATION COUNT 
201 04 005004 CLR STHIS IS THE SECTOR ADDRESS 
202 042664 110412 14$:  MOVB  R4,(R2) [RELOAD THE SECTOR ADDRESS 
203 042666 005204 INC RG SNEXT SECTOR ADDRESS 
204 042670 062708 000014 ADD #14,R2 [SKIP DATA IN CURRENT SECTOR MAP 
205 042674 00530 DEC R3 ZONE LESS ITERATION TO GO 
042676 003372 BGT tIF > 0, GO-ON 
207 042700 052777 100000 137636 BIS #CMOD ,aRPOF ‘COMMAND MODIFIER=1 
208 042706 012737 002730 002366 MOV #IOBUFF,TABADD LOAD THE LINK ADDRES 
209 042714 012737 000454 002412 MOV #<50.*6>,NEGWRD :AND THE WORD COUNT 314<8> EFF1) 
210 042722 004737 01514 JSR PC DRIVER NOW D9 THE TRANSFER 
211 042726 012737 01154 002470 MOV #WTCKH KHD , FATOF tLOAD T HE FAILING FUNCTION 
212 042734 012737 033400 002404 MOV #81T8'!BiT9'BIT10'BIT12'BIT13,ERRWD1 ;CREATE MODULE CALLOUT 
213 042742 012737 000406 002406 MOV #8111 18/12: BITB.ERRWDC sLIST FOR BOTH MASK 
214 042750 032777 040000 137534 BIT ATRE ,ARPCSI :D1D_ WE GET A TRANSFER ERROR? 
215 042756 001407 BEQ 1"§ ZERO, 
216 042760 004737 017150 JSR PC, LOCATE ‘FIND THE DATA FOR THE REPORT 
217 042764 104456 TRAP C$ERHR 
042766 001450 .WORD 808 
042770 013441 ; EM33 
042772 014500 “WORD ERR2 
218 042774 000411 BR 16$ :SKIP THE NEXT DISPATCH 
219 042776 004737 017032 15$: JSR PC,ERRCK SANY ERRORS? 
220 043002 005737 002466 TST ERSTAT SIF ZERO, NO 
221 04 001406 BEQ 17$ : TAKE BRANCH IF NO ERRORS 
222 043010 104456 TRAP  CSERHRD 
001451 WORD 
043014 012454 “WORD EM14 
043016 014172 : ERRO 
223 043020 004737 015400 16$: JSR PC,DRVCLR ZRESET ALL ERRORS 
224 043024 17$: 
225 043024 10002$: 
043 104405 TRAP  CSESEG 
226 043026 L10111: 
043 104403 TRAP  C$ESUB 
227 043030 158.2: 
043030 104402 TRAP CSBSUB 
228 043032 105037 002414 CLRB —ODESST sSECTOR ADDRESS=0 
229 043036 012737 033400 002404 MOV OBITS *BIT9!B BIT Joieiri2!e1115, sERRWD1: SET UP THE MODULE CALLOUT 
230 043044 012737 000406 002406 MOV #B1T1‘BIT2'BIT8,ERRWD2:FOR BOTH MASKS 
231 043052 012737 O00UU4 002436 MOV #4, TEMP sALLOW FOR POUR DATA ERRORS BEFORE REPORTING THE ERROR! 
232 043060 012703 002344 MOV #PATT1,R3 :GET THE TEST PATTERN 
233 043064 012701 002730 1$: MOV #IOBUFF ,R1 SCREATE THE OUTPUT BUFFER 
234 043070 012702 000400 MOV #256. RO [GET THE BUFFER SIZE 
235 043074 011321 2$: MOV (R3), (R1)+ ; START LOADING THE BUFFER 
236 043076 005302 DEC R2 ONE LESS WORD TO LOAD 
237 043100 003375 BGT 2$ aT: > 0, GO-ON 
238 043102 104404 TRAP  C$BSEG 
239 043104 012737 002730 002366 3$: MOV #IOBUFF,TABADD ;LOAD THE LINK AGAIN 
240 043112 012737 000061 002420 MOV #WRDTA, FUNCTN sSETUP FOR A WRITE DATA COMMAND 
241 043120 012737 000400 002412 MOV #256.,NEGWRD § :WRITE ONE SECTOR 
242 043126 004737 015146 JSR PC DRIVER :NOW DO IT 
243 043132 004737 017032 JSR PC ERRCK :LOOK FOR ERRORS 
244 043136 005737 002466 TST ERSTAT F ERRORS, THIS = =1 
245 043142 001424 BEQ 4$ iSKIP ERROR DISPATCH IF 0 





“wD 
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T 58: DATA TEST 


$o8 043144 
247 043150 
248 


nm 

& 

o 
MMO NNNOOOuMUM 
SRONARNS OO RO 


Ww 
or 


POPIPIMIPIPIRINR) ed et ot ot ot et 
= 
RS 


WWWWWWWNWNWNNNWNWNWNNWNAAAANANA 
Ree 
ms 


MRR NsNoNonononononononry 
HDAAQOMMAMNMVVIVAVIU 


FER IS SSNS AFUN2S 
PPRRRRLRLRRRRLRLPRPREPPRERR 


10 

285 043412 
043414 
043416 
043420 

286 043422 


ae 


gg © 
on 
Ww 
~ 


ay 
oO 
WOWWO Sof fenv' 


re AA eee S 


-—-Ooo0oo 
SIN NEO NIN OS NE 


S2S28SSSS25 
Mmrmun &rors 


ooo 
=o 


022726 
001410 


004737 


002436 


007315 
000001 


040000 
017372 


177777 
137214 


177776 
002454 
002436 


011566 


137122 
037777 
140000 


017372 


015400 


002430 


002420 
002366 
002412 


137240 


002430 


002452 


002470 


4$: 


5$: 


6$: 


7$: 


8$: 


ERR 
#FRMTO2,-(SP) 
#1,-(SP) 


SP,RO 

CSPNTB 

#4,SP 

#-1,FASTAT 

PC,DRVCLR 

gt 

#WCKD, FUNCTN 

#IOBUFF, TABADD 

#256. ,NEGWRD 
DRIVE 

PC.WAIT 

#WCE ,@RPCS2 

PC,BISEXP 

CSERHRD 

811 

EM22 

ERRO 

#~1,FASTAT 

@RPDB, -(SP) 

(SP) +, (R2) 

-2(SP) ,RCVED 

(Ra) ,EXPTED 

iP 

#WTCKD, FATOF 

CSERHRD 

EM34 

ERR2 

@RPCS1,-(SP) 


#*C<SCITRE>, 
#SC!TRE, (spss 


8$ 
PC, ,BISEXP 


0 FOUR ITERATIONS? 


sMARK THIS ya AS FAILED 
:GET RID OF ANY ERRORS 

3GET ONE BUFFER LOCATION 

AND LOUSE IT UP! 

LOAD THE WRITE ey FUNCTION 
sLOAD_THE om ADDRESS 


2 AND THE WORD COUNT 

;NOW DO THE a Dana 
;WAIT FOR A SETTLE TIM 

;DID _WE GET A WRITE CHECK ERROR? 


:1F = 1, YES! 

FORM THE FAILING DATA 
THIS REGISTER FAILED 

STHIS BIT FAILED TO SET 


phe iHIS FAILURE 


GET THE ACTUAL DAT 
2 INVERT THE EXPECTED DATA 
MATCH? 


;LOOKS OK, GO-0 

AND LOG THE RESULTS FOR ee REPORTING 
;NOW GET THE EXPECT ED DAT 

WHICH “oy ION 


z1F > 0, NOT TH E "LAST 
LOAD THE. FUNCTION AT TIME OF FAILURE 


, save RPCS1 A Ss’ CK 

GET RID OF THE UNNECESSARY BITS 
DID SC AND TRE SET? 

:IF ser. SKIP ERROR om 

;LOAD T NG DAT 


DN'T SET 


RELOAD AND RESET 


SEQ 0193 





—_———<_ <= — cc cc 


ue  ——_—_-__--___ 





SBBSIIP 


ooo 


WWwWwwnnr 
Wh 


3 


46 


20 


a ad od od od 
MEW 
RRRRRRRRKERK 


w 

Oo 

& 
fon 


WWW 


WWW 
Mma 
Sowuano 


2 
333 


043644 


012737 
O19737 


000720 


104405 


002730 
000400 


002466 
002436 
002414 
043104 
011566 
00243 

040000 
017150 


007315 
000001 
000004 


017032 
002466 


015400 
002430 


002430 


002362 
043064 


000021 


000020 


14$: 
10000$: 


0023 
00241 
002420 

9$: 
002470 10$: 
136766 

11$: 

12$: 

13$: 

15 

L1 
002420 
002420 
136646 
002412 
002366 
136602 


415 
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TEST 58: DATA TEST #3 


#IOBUFF,TABADD ;NOW VERIFY DATA FOR See HLF 
#256. ,NEGWRD :D0 255 WORD (1 ie CT9OR) TRANSFER 
#WCKD ,FUNCTN ;SET_UP FOR A WRITE CHECK 

IVER HE COMMAND NOW! 


eo Vv 
PC ERRCK ERRORS? 
ERSTAT TIF =RRORS, THIS = = 1 

‘SKIP ERROR DISPATCH IF 0 
TEMP ALLOW ONE LESS ERROR! 
10$ 31 RE SORT THE ERROR NOW! ! 
DESTRK G60 fo acs NeXt SECTOR 
OR SKIP THE ERROR DISPATCH! 

#WTCKD, FATOF :LOAD THE NP AILING FUNCTI 

P = 0, FOR A POSSIBLE LOOP 
#TRE .ARPCS1 :D1D ve, & GET A TRANSFER ERROR? 
PC ,LOCATE ‘FIND THE ERROR 
C$ERHRD 
814 
EM33 
ERR2 
#FRMTO2,=(SP) 
#1,-(SP) 
SP,RO 
C$PNTB 
#4,SP 
12$ SKIP NEXT REPORT 
PC,ERRCK [LOOK FOR ANY ERROR 
ERSTAT [IF ONE FOUND, THIS = = 1 
13$ [NO ERRORS, GO-ON 
CSERHRD 
815 
EM14 
ERRO 
PC,DRVCLR :RESET AND RELOAD 
FASTAT SANY ERROR? 
14$ SIF ZERO, NO 
FASTAT “RESET THE FAILED MARKER 
9$ SAND GO TO NEXT SECTOR 
CSESEG 

(R3)+ :POP R3 TO THE NEXT DATA TABLE ENTRY 
R3,#PATTS [DONE YET 

15$ [IF R3 > # PATT8, YES 

aris [DO MORE! ! 
C$ESUB 
C$BSEG 
#RIP, FUNCTN :SET UP FOR ANOTHER READ IN PRESET 
PC DRIVER SISSUE THE COMM 
#ROHDTA, FUNCTN 


:NOW PREPARE 10. READ A, HEADER - 
#CMOD ,ARPOF ZONLY SIX WORDS / TRANSFER 


4#6,NEGWRD 

#PSTACK, TABADD 

PC,DRIVER iTHIS shQULS CAUSE A FORMAT ERROR 
#FER,@RPER1 DID 11?? 


sl I SAID ORDS ONLY 
; TRANSFER TO START AT THIS BUFFER ADDRESS 


SEQ 0194 


“Ase eee ee INCI eT 


#3 





4000 
339 044002 
044002 


017722 


ST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 93- 15 


BEQ 1$ z1F MATCH, IT DID 
002454 MOV #FER,EXPTED [FORM THE EXPECTED DATA 
002452 MOV @RPERT,RCVED § :FORM THE RECEIVE 
002456 MOV RPER1,TESIRG § :THIS REGISTER FAILED. THE TEST 
002404 MOV #B81T8'BIT11,ERRWD1;LOAD THE MODULE CALLOUT 
002406 MOV #81T1'BIT2!BIT8,ERRWD2;FOR BOTH MASK st 
TRAP C$ERHRD 
.WORD 816 
;WORD M14 
“WORD ERRO 
1$: JSR PC,PRELOD ;RESET FOR 16 BIT MODE 
10000$: 
TRAP  CSESEG 
L10110: 


TRAP CSETST 


em — et ee ee ee a — 


SEQ 0195 


rer ae TA RMOAM See Te ee TANI Ss se 


ee - _— _— —_—__ _ -_—- —-+— — —_———_- _—— — -—— 


B 16 
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TEST 59 RPER1 NEGATIVE BIT TESTS 


J .SBTTL TEST 59 RPER1 NEGATIVE BIT TESTS 
3 7% TEST. 59 RPER1 NEGATIVE BIT TESTS 
4 7% : N ILLEGAL COMMAND (443 = OCTAL) 
5 :% Issue er COMMAND 
6 7% IF RPER1: ILF = 0 
? 7% THEN 
2 7% OUTPUT ERROR MESSAGE (FAILED TO DETECT RPER1: iF) 
a i = pourPut FAULT LIST: J12 
11 3% F SSuE A DRIVE CLEAR COMMAND 
12 :% SET UP FOR SECTOR ADDRESS 50(DECIMAL) 
13 % SET UP FOR TRACK ADDRESS 31(DECIMAL) 
14 7% ISSUE SEEK COMMAND 
ig f F RMEN . 
4 :% poutpur ERROR MESSAGE (FAILED TO DETECT RPER1: JAE) 
19 :% ISSUE A DRIVE CLEAR 
20 7% DECREMENWT THE <ECTOR ADDRESS (49 DECIMAL) 
21 7% INCREMENT THE ThaCk ADDRFSS (32 DECIMAL) 
22 7% ISSUE SEEK COMMAN 
23 % IF RPER1: IAE = 
24 3% THEN 
25 7% OUTPUT ERROR MESSAGE (FAILED TO DETECT RPER1: IAE) 
36 3 .. yp ourut FAULT LIST: J7, J8, RHXX, CABLES, TERMINATOR 
28 7% : ISSUE DRIVE CLEAR COMMAND 
23 7% END TEST 59 
31 044004 T59:: 
32 044004 104404 TRAP C$BSEG 
33 044006 004737 015409 JSR PC,DRVCLR :START UP WITHOUT ERRORS 
34 044012 032777 010000 136504 BIT #MOL ,A@RPDS ‘DRI VE_ONLINE? 
35 044020 001016 BNE t1F = 1, YES 
36 044022 004737 017326 JSR PC, SAVRPR GET THE REGISTER SNAPSHOT 
37 044026 013746 002114 MOV LS$TEST,-(SP) 
012746 006452 MOV #MSGMOL , -(SP) 
4036 012746 000002 MOV #2,-(SP) 
044042 010600 MOV ‘ 
044044 104417 TRAP  C$PNTF 
044046 062706 000006 ADD #6,SP 
41 044052 104432 TRAP = C$EXI 
4 000244 . WORD 0113-. 
42 044056 012737 000043 002420 1$: MOV #43, FUNCTN ;LOAD UP AN ILLEGAL FUNCION 
43 044064 013737 002526 002456 MOV RPER1,TESTRG | :FORM UP PART OF THE ERROR MESSAGE 
44 044072 004737 015146 JSR PC DRIVER i ISSUE THAT ILLEGAL COMMAND 
45 044076 022777 000001 136422 CMP MILF ,ARPER1 “DID ILLEGAL FUNCTION ONLY SET? 
46 044104 001417 BEQ F MATCH, YES 
47 044106 012737 004000 002404 MOV #81T11,ERRWD1 :LOAD THE “MASK 
48 044114 005037 002406 CLR ERRWD2 [FOR BOTH MASKS 
49 044120 012737 000001 002454 MOV MILF EXPTED ‘SET UP tue EXPECTED DATA 
50 044126 017737 136374 002452 MOV @RPER1 ,RCVED ‘REPORT THE RECEIVED DATA 
51 044134 TRAP RHRD 
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TEST 59 RPER1 NEGATIVE BIT TESTS 


015400 
005700 
000406 


002000 
136260 
4250 104456 

2 001462 


002414 


002000 
017722 


004737 
104405 
4320 104401 


002404 


002420 
136274 


002454 
002452 


136216 


2$: 
10000$: , 


3$: 


4$: 


5$: 
10001$: 
L10113: 





CSESEG 
bape 
VCLR PURGE ANY ERRORS 

#eite 8117/8178! B1r9ieir11 gore LOAD THE MODULE CALLOUT 
#B1T1!BIT2!BIT8,ERRWD2;FOR BOT K 

#629. ,DESCYL sLAST ser CYLINDER, PLEASE 

#31, OESTRKSI LAST U USER TRACK, 
#50. ,DESTRK ILLEGAL SECTOR ADDRESS, PLEASE 


yy Ptr al LOAD ve A SEEK COMMAND 


PC, ;ISSUE THE COMMAND, BUT EXPECT IT TO FAIL 
ren cut DME GET. ie EXPECTED RESULTS? 

#IAE ,EXPTED ;FORM THE EXPECTED DATA 

@RPER1 ,RCVED 7GET THE ACTUAL DATA 

CSERHRD 

818 

EM14 

ERRO 

5$ sAND_GET-OUT! 

ESTRK LAST LEGAL SECTOR ADDRESS, PLEASE 
DESTRK+1 7 ILLEGAL TRACK ADDRESS, PLEASE 
PC,DRVCLR :NO ERRORS, YET!! 

PC,DRIVER NOW ISSUE THE Bdeus, — COMMAND 
#IAE ,ARPER1 DID WE GET IAE 0 
; TAKE BRANCH IF NOT. 
PC ,PRELOD ;RESET FURTHER ERRORS 
CSESEG 


CSETST 


SEQ 0197 


——--—- 
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TEST 60 USER SELECTED MICRODIAGNOSTIC POUTINE 


-SBTTL TEST 60 USER SELECTED MICRODIAGNOSTIC ROUTINE 
Ht i A 60 USER SELECTED tot Minas. ROUTINE 


044322 


NO OWNAUE WN $C OONOUES WN“ OOONOUESWhN 


ees ek dd ed ss od ed 


50 
42 044352 


04 
44 044372 
04 


044412 
45 044412 
46 044416 





005737 


012704 
012702 


002342 


002422 


010271 
000001 


000004 


002652 
000002 


TRF TL TL FL FL TFL TFL TL TL FL TL TFL TL TL FL TL FL FE TL TL TL IL IL 


Se Se Se Se Se Be Be Ge Ge Se Se Se Be Ge Be Se Ge Be Ge Ge Se Se Se 


“4 
oa 
= 


1$: 


2$: 


10000$: 


NUAL TESTING IS NOT ALLOW 


HEN 
EXIT TEST 


L 
IF 


THEN SELECTED INPUT ALLOWS A HEX DATA SELECTION 


Ger A_2 CHARACTER USER INPUT 
IF THE USER INPUT IS NOT A VALID HEX CHARACTER 


THEN 
aes THE INPUT AND GOTO A 


E 

LEFT JUSTIFY THE INPUT DATA AND MAKE IT BYTE ORIENTED 
BY PUTTING TWO ni CHARACTERS IN ONE BYTE 

MOVE THE USER DATA INTO R4 

TURN ON THE DIAGNOSTIC we IN THE DRIVE 

LOAD THE ROUTINE NUMBER INTO THE DRIVE 

IF RPER? ee TO FINISH EXECUTION 


THEN 
REPORT THE ERROR (DRIVE FAILED A MICRODIAGNOSTIC ROUTINE) 
aid ALL DRIVE AND CONTROLLER ERRORS 


: ENDIF 
END TEST 60 


SELRUN 
1$ 
CSEXIT 
L10114-. 
ROUTDO 
6$ 
C$MANI 
2$ 


CSEXIT 
L10114-. 


#FRMT23,~(SP) 
#1,-(SP) 


sALLOW A USER INPUT? 
0, YES 


© 
° eo 


USER PREVIOUSLY SELECTED INPUT?? 
SKIP NEXT DIALOGUE 


zPRINT "ROUTINE NO. (2 CHAR “'HEX’’ INPUT)* 


TSCODE 
1 
TSLOLIM 
TSHILIM 


#PSTACK,R4 GET THE START OF THE STRING 
#2,R2 


SET AN ITERATION COUNT 


SEQ 0198 


CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 ee 13:37:00 PAGE ft 





TEST 60 USER SELECTED MICRODIAGNOSTIC ROUTINE 


47 044422 


112401 


052777 


104405 
004737 


104401 


000071 
000060 


000067 
000017 
177777 


002652 
53 


040011 
015146 
100000 


015312 


002424 


002420 
135732 


3$: 


4$: 


5$: 


100018: 


L10114: 








(R4)+,R1 
Ri .474 


#60,R1 

2$ 

5$ 

#67,R1 
R1,#17 
R1,~1(R4) 
R2 


3$ 
oe amt 


+ 
(R4) ,PSTACK 
PST ACK+1 


ROUTDO 
PSTACK,SELNUM 
SELNUM,R4 


_PC,DIAGST 
R4 


RPER2,-(SP) 
oro 800, (SP)+ 


SEQ 0199 


GET THE DATA CHAHRACTER 


Hepes BEGIN TO SCALE IT 
AKE oe IF ALPHA, NOT NUMERIC 
STRIP T HE ASC 
IF MINUS, THE yt GOOFED!! DO AGAIN! 
SO-FAR, KEEP GOING 


0k 
: STRIP THE asc 
© MINUS, THE USER we Aid 
:LEGAL CHARACTER CIN HEX) 
~_if°S TOO LARGE 
MOVE’ THE HEX BACK INTO THE BUFFER (SANS ASCII) 
OO ut LESS a TO GO 


O UNTIL 
;BACK THE POINTER UP BY TWO BYTES 
:TO LEFT vt 2 THE LOW BYTE 
3SECOND SHIFT 
THIRD SHIFT 

sFOURTH SHIFT (POP POINTER) 

3FORM THE ENTIRE 2 CHAR ag B FIELD 
;THROW THE HIGH BYTE OUT 
3MARK THE USER SELECTED INPUT 
ZSAVE THE USER ROUTINE NUMBER 
zLOAD THE ROUTINE NUMBER 
TURN ON THE MONITOR 
HIGH BYTE = ROUTINE NUMBER 


sLOAD THE ROUTINE NUMBER 
GET THE RESULTS OF THE TEST 


:1F ZERO, NO!! 


DO AGAIN! 


ERR1 
#MTRE!DRCLR,FUNCTN; PREPARE TO RESET THE ERRORS 
PC DRIVER PURGE ERROR 


#DMD, @RPMR1 


CSESEG 
PC ,DIAGEN 


CSETST 


TURN ON THE DMD BIT AGAIN 


TURN OFF THE MONITOR 





-————---—_- —— 
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TEST 61 NOP FUNCTIONAL TEST 


J .SBTTL TEST 61 NOP FUNCTIONAL TEST 
3 3% TEST 61 NOP FUNCTIONAL TEST 
4 7% LOAD UNIT UNDER TEST INTO RPCS2 
> i IF RPDS: DRY <> 1 
f i ypgyrPut ERROR MESSAGE (RPDS: DRY NOT SET WHEN EXPECTED) 
9 :% WRITE alto? COMMAND TO RPCS1 
10 7% TIME RPDS: D 
1 ik IF TIME EXPIRES AND RPDS: DRY <> 1 
13 | i OUTPUT ERROR MESSAGE (RPDS: DRY NOT SET IN TIME) 
13 3% IF RPDs ERR = 
4 i : QuTPuT ERROR MESSAGE (COMPOSITE ERROR SET WHEN NOT EXPECTED) 
19 ik IF APCs: TRE = 1 
Al :% = sQuTPUT ERROR MESSAGE (RPCS1: TRE SET WHEN NOT EXPECTED) 
33 :% END TEST 61 
25 044614 T61:: 
26 044614 012737 004000 002404 MOV #B1T17,ERRWD1 LOAD THE ERROR MASK 
27 044622 005037 002406 CLR ERRWD2 FOR 80TH MASKS 
B 044626 004737 016662 JSR PC SEIZE [GET THE DRIVE NOW! 
9 044632 012701 000036 MOV #30.,R1 [GET AN OVERALL WATCHDOG TIMER 
30 044636 012777 000015 135646 MOV #NOP. aRPCS1 ‘WRITE A NOP COMMAND 
31 044644 105777 135654 1$: TSTB  aRPDS :DO WE HAVE DRIVE READY? 
32 044650 100413 BMI 2$ [IF MINUS, YES!! 
33 044652 004737 017000 JSR PC WAIT [STALL, AND WASTE SOME TIME 
34 044656 005301 DEC R1 SONE LESS ITERATION TO-GO 
35 044660 003371 BGT 1$ Z1F R1 <> 0, DO AGAIN 
36 044662 004737 017326 JSR PC, SAVRPR [GET THE REGISTER SNAPSHOT 
37 044666 104456 TRAP  C$ERHRD 
044670 000622 «WORD 402 
044672 012015 -WORD M2 
044674 014652 <WORD ERR3 
38 044676 000425 BR 4$ sAND SKIP NEXT PART OF TEST 
39 044700 032777 040000 135616 2$: BIT #ERR,@RPDS [COMPOSITE ERROR SET? 
40 044706 001407 BEQ 3$ [TAKE BRANCH IF NOT 
41 044710 004737 017326 JSR PC, SAVRPR [GET THE REGISTER SNAPSHOT 
42 044714 104456 TRAP  C$ERHRD 
044716 000623 .WORD 403 
044720 011747 <WORD M1 
044722 014652 “WORD ERR3 
43 044724 000412 BR 4$ yAND TAKE EARLY EXIT 
44 044726 032777 040000 135556 3$: BIT #TRE,aRPCS1 : TRANSFER ERROR SET? 
45 044734 001410 BEQ 5$ SIF ZERO, WE'RE 0 
46 044736 004737 017326 JSR PC, SAVRPR °GET THE REGISTER SNAPSHOT 
47 044742 104456 TRAP  C$ERHRD 
044744 000624 .WORD 404 
044746 012562 <WORD £EM16 
014652 “WORD 


044750 ERRS 
48 044752 004737 016662 4$: JSR PC SEIZE PURGE REMAINING ERRORS 





————--- 
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ST 61 NOP FUNCTIONAL TEST 


49 044756 5$: 
044756 L10115: 
0 044756 104401 TRAP CSETST 


e+ - - O- - 


SO 


H 16 
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TEST 61 NOP FUNCTIONAL TEST 
12 
13 -SBTTL HARDWARE PARAMETER CODING SECTION 
43 p++ 
44 3; THE Bam yt PARAMETER CODING SECTION CONTAINS MACROS 
45 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
46 é MACROS ARE NOT OE XECUTED AS MACHINE INSTRUCTIONS BUT ARE 
47 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
48 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
49 : WITH THE OPERATOR. 
4 - 
52 044760 000022 «WORD L10116=LSHARD/2 
044762 LSHARD:: 
5 ;PRINT ‘RPCS1 ADRS?° 
54 044762 000031 «WORD TSCODE 
044764 045026 ~WORD MESG1 
044766 160000 «WORD TS$LOLIM 
044770 177777 » WORD TSHILIM 
5 zPRINT ‘VECTOR ADRS?° 
56 044772 001031 ~WORD TSCODE 
044774 045041 »WORD MESG4 
044776 000000 -WORD TS$LOLIM 
045000 000377 -WORD TSHILIM 
7 sPRINT "BR LEVEL?' 
58 045002 002032 «WORD TS$CODE 
045004 045055 -WORD MESGS 
045006 000340 -WORD 340 
045010 000000 ~ WORD TSLOLIM 
045012 000007 ~ WORD TSHILIM 
59 sPRINT ‘DRIVE #?° 
60 045014 003032 -WORD TSCODE 
045016 045066 ~WORD MESG6 
045020 000007 . WORD 
045022 000000 «WORD TS$LOLIM 
045024 000007 «WORD TS$HILIM 
61 EVEN 
> 045026 L10116: 


> 045026 : /RPCS1_ ADRS/ 
67 045041 $ /VECTOR ADRS/ 
/BR LEVEL/ 
/DRIVE #/ 








ce 
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SOFTWARE PARAMETER CODING SECTION 


LSBITL SOFTWARE PARAMETER CODING SECTION 
| i THE {SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
| 5 i THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
| 6 ¢ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
| ? : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
8 < MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
2 + WITH THE OPERATOR.” 
i 
12 045076 000022 “WORD L10117=L$SOFT/2 
045100 LSSOFT:: 
| 13 SPRINT “EXECUTE TEST 25., MASSBUS INTERFACE SWITCH TEST (L 
14 045100 000130 WORD TSCODE 
045102 045144 "WORD -MESG17 
045104 000001 "WORD 1 
15 SPRINT "EXECUTE TEST 52.. PRINT CONTENTS OF INTERNAL ERROR L 
16 045106 001130 WORD TSCODE 
045110 045224 “WORD MESG18 
045112 900001 "WORD 1 
17 SPRINT "SELECT A TRACK FOR THE RPO7 INTERNAL RD-WRT TESTS (L 
18 045114 002130 WORD TSCODE 
045116 045313 "WORD  MESG20 
045120 000001 “WORD 1 
19 GO TO 1$ IF NO 
20 045122 006044 WORD  TSCODE 
SPRINT "TRACK ADDRESS (D) 0 ?° 
2 045124 003052 WORD TSCODE 
045136 045375 “WORD MESG21 
| 130 000037 “WORD 37 
045132 000000 “WORD TSLOLIM 
045134 000037 "WORD ‘TSHILIM 
23 045136 1$: :PRINT "EXECUTE TEST 60., SELECT A MICRO-DIAGNOSTIC FOR EXEC 
5% 045136 004130 WORD TSCODE 
045140 045413 "WORD  MESG22 
ns 065142 000001 "WORD 1 
$5 
33 SEVEN 
045144 L10117: 
38 045144 105 130 105 MESGI7::.ASCIZ /EXECUTE TEST 25., MASSBUS INTERFACE SWITCH TEST/ 
049224 105130105. MESGI8::.ASCIZ /ENECUTE TEST 52. PRINT CONTENTS OF INT:RNAL ERROR LOG/ 
40 045313 123 105 114 MESG20::.ASCIZ /SELECT A TRACK FOR THE RPO7 INTERNAL RD-WRT TESTS/ 
41 045375 134 122 101 MESG21::.ASCIZ /TRACK ADDRESS/ 
42045413 105130105 MESG22z:-ASCIZ /EXECUTE TEST 60., SELECT A MICRO-DIAGNOSTIC FOR EXECUTION/ 
ai SEVEN 
55 045506 SPATCH::.BLKw 50. :PROGRAM PATCH AREA (50. WORDS) 
SEVEN 
045652 045672 “WORD TSFREE 
045654 000006 "WORD TS$SIZE 
045656 LSLAST:: 


i 
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CZR 
SOFTWARE PARAMETER CODING SECTION 
1 
14 
16 045656 000000 -WORD 0 
045660 000004 WORD 110122-./2=1 
045662 L10120: 
17 045662 176700 -WORD 176700 
18 045664 000254 «WORD 254 
19 045666 000240 WORD 240 
20 045670 000000 - WORD 
21 045672 L10122: 
23 000001 ~END 


(ne 
; 
} 


K 16 
/CZRJMAO_RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 99-1 SEQ 0205 
SYMBOL TABL 


E 
| AD 011074 G CONSET 020330 C$SPRI= 000041 EM17 012622 G FRMTO3 007404 G 
;ADR = 000020 G CPE = 040000 C$SVEC= 000037 EM2 012015 G FRMT04 007426 G 
AOE = 001000 = 020000 CSTPRI= 000013 EM20 pssst G FRMTOS 007474 G 
ASSEMB= 000010 00015 G DCK = EM21 012725 G FRMT 007545 G 
TA =1 CREADY 015134 Us EM2 Oi gace G FRMTO? 007574 G 
ATABIT 002566 G LF ‘S744 G DECODE 020532 EM2 013051 G FRMT10 007624 G 
ATO = CSTORE 002432 G DESCYL 002416 G EM24 013126 G FRMT11 067655 G 
AT1 = 000002 AU_ = 000052 ES 2414 G EM25 013167 G FRMT12 007713 G 
At2 = CS$AUTO= 000061 DFPTBL 002320 G EM26 013224 G FRMT15 007756 G 
ATS = 000010 C$BRK = 000022 DIAG = 000035 EM27 013266 G FRMT14 010004 G 
AT4 = 000020 CS$BSEG= 000004 DIAGEN 015312 EMS 012055 G FRMT1S5 010031 G 
ATS = 000040 C$B8SUB= 000002 DIAGLD 015352 EM30 013326 G FRMT16 010070 G 
AT6 = = 000100 CSCEFG= 000045 DIAGMC= 000000 EM31 013362 G FRMT17 010161 G 
AT? = 000200 CSCLCK= 000062 DIAGST 015260 G EM32 013411 G FRMT20 010202 G 
Ai6é = = 000400 CSCLEA= 000012 DL = 000 EM33 013441 G FRMT23 010271 G 
Ai? = = 001000 C$CLOS= 000035 DM 0 EM34 013505 G FRMT40 010337 G 
BAI = 000010 C$CLP1= 000006 DMPREG 016212 EM35 013564 G FRMT41 010430 G 
BELL = 000007 G CSCVEC= 000036 PE = EM36 013641 G FRMTSO 010510 G 
BICEXP 017422 G SDCLN= 000044 = EM37 013701 G FRMT51 010601 G 
BISEXP 017372 G C$DODU= 000051 DRCLR = 000011 EM4 012100 G FPMT60 poet G 
IT 002400 G C$DRPT= 000024 DRIVER 015146 EM40 013753 G FRMT61 010755 G 
ITO = 000001 G C$DU_ = 000053 DRQ_ = 004000 EM41 014026 G FRMT70 011035 G 
BITOO = 000001 G CSEDIT= 000003 DRTO = 000001 EM42 014075 G FRMT71 011055 G 
BITO1 = 000002 G CSERDF= 000055 DRT1 = 000002 EM43 014130 G FUNCTN 002420 G 
BITO2 = 000004 G CSERHR= 000056 DRT2 = 000004 EMS 012116 G $AU_ = 000015 
BITO3 = 000010 G CSERRO= 000060 DRTS = 000010 E 012155 G FSAUTO= 000020 
BITO4 = CSERSF= 000054 DRT&4 = 000020 EM? 012217 G = 000040 
BITOS = CSERSO= 000057 DRTS = 000040 ENDCYL 002374 G FSCLEA= 000007 
BIT06 = 000100 G CSESCA= 000010 DRT6 = 000100 ENDTRK 002370 G U_ = 000016 
BIT0? = 000200 G CSESEG= 000005 DRT? = 000200 ERR = 040000 SEND = 000041 
BITO8 = 000400 G CSESUB= 000003 = 000400 ERRCK 017032 FSHARD= 000004 
BITO9 = 001000 CSETST= 000001 DRVBLT 011477 G ERRDMP 002334 = 00001 
BIT1 = 000002 G CSEXIT= 0000352 DRVCLR 015400 ERRVEC= 000004 FSINIT= 000006 
BIT10 = 002000 C$GETB= 000026 DRVNO 002506 G ERRWD1 002404 G FSJMP = 00005 
BIT11 = 004000 G C$GETW= 000027 DRVSN 002510 G ERRWD2 002406 G F$ = 00000 
BIT12 = 010000 G c$ = 000043 DRY = 000200 ERRO 014172 G FS$MSG = 00001 
BIT13 = 020000 G C$GPHR= 000042 DS 011121 G ERR1 014310 G FSPROT= 000021 
BIT14 = 040000 C$GPLO= 000030 DSE = 020000 ERR2 014500 G FSPWR = 00001 
BIT15 = 100000 G $GPRI= 000040 DSNMSG 006423 G ERRS 014652 G FSRPT = 000012 
BIT2 = 000004 G C$INIT= 000011 DTE = 010000 ERSTAT 002466 G FSSEG = 000005 
BITS = 000010 G CSINLP= 000020 DV = 004000 EVL = 000004 G FSSOFT= 000005 
BIT4 = 000020 G C$MANI= 000050 DvVC = 000200 EWN = 000002 F$SRV = 000010 
BITS = 4 C$MEM = 0000 ECH = 000100 EXPTED 002454 G F$SUB = 000002 
BIT6 = 000100 G C$MSG = 000023 ECI_ = 004000 ESEND = 002100 F$SW = 000014 
BIT? = 000200 G CSOPEN= 000034 EC.00 004354 ESLOAD= 000035 FSTEST= 000001 
BIT8 = 000400 G CS$PNTB= 000014 EF.CON= 000036 G ASTAT 002430 G Fl = 00000 
BIT9 = 001 CSPNTF= 000017 EF .NEW= 000035 G TOF 002470 G F2 = 000004 
BLOWER 011361 G CSPNTS= 000016 -PWR= 000034 G FAULTS 016556 F3 = 000010 
= 000400 G CS$PNTX= 000015 EF .RES= 000037 G FER = 000020 F4 = 000020 
BSE = 100000 C$Q10 = 000377 EF.STA= 000040 G OAT 020034 FS = 000040 
BYTCNT 002410 G C$RDBU= 000007 EM1 011747 G FLSTOO 007273 G GO = 000001 
CA 011151 G CSREFG= 000047 EM11 012272 G $T01 007312 G G$CNTO= 000200 
CALMOD 016132 CSRESE= 000033 EM12 012342 G T= 010000 GSDELM= 000572 
CLKSTA 002426 G C$REVI= 000003 EM13 012410 G FORTRK= 000063 G$DISP= 000005 
CLR = 40 C$RFLA= 000021 EM14 012454 G FRMTOO 007161 G GSEXCP= 000400 
CMOD = 100000 C$RPT = 000025 EM15 012523 G FRMTO1 007214 G G$HILI= 000002 
COMPAR 020202 C$SEFG= 000046 EM16 012562 G FRMTO2 007315 G G$LOLI= 000001 
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CZRJMAO_RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 99 SEQ 0206 
SYMBOL TABLE 







000000 J1 o713¢! G LSEXP4 002064 G L10034 025032 MCUTXT 002676 G 
GSOFFS= 000400 J10 0112 $ G LSEXPS oe oes G L10035 025356 MDPE = 000400 
GSOFSI= 000376 J11 011245 G LSHARD 044762 G Bets 025536 MESG1 045026 
PRMA= 0 1 a6 011250 G L$HIME 002120 G L10037 025730 MESGIO 006577 G 
GSPRMD= 000002 J1 011255 G LSHPCF boSea8 G L10040 026226 MESG11 006671 G 
GSPRML= 000000 J14 011262 G LSHPTP 002022 G L10041 026524 erate 006763 G 
GSRADA= 000140 J15 011267 G $HW 002320 G et sing 027042 MESG13 011607 G 
GS$RADB= J16 011274 G L$ICP_ 002104 G L10043 027360 MESG14 011667 G 
G$RADD= 000040 J17 011301 G L$INIT 020652 G L10044 027632 MESG1S 007062 G 
GSRADL= 000120 J2 011166 G L$LADP 002026 G L10045 030100 MESG17 045144 G 
G$RADO= 000020 J20 011306 G L$LAST 045656 G L1g0e6 030320 MESG18 045224 G 
GS$XFER= 000004 Jel 011313 G L$LOAD 002100 G L10047 030512 MESG20 045313 G 
G$YES = 000010 J3 011173 G L$LUN 002074 G L10050 030622 MESG21 045375 G 
HCE = 000200 J4 011200 G LS$MREV 002050 G L10051 031014 MESG22 045413 G 
HCI = 002000 J5 011205 G LSNAME 2000 G L10052 031152 S64 045041 
HCRC = 000400 J6 011212 G LSPRIO 002042 G L10053 031320 MESGS 045055 
HDA 011320 G J? 011217 G LS$PROT 020644 G L10054 031444 MESG6 045066 
HELP_ = 000000 J8 011224 G L$PRT 002112 G L10055 031576 H = 020000 
HERTZ 015750 J9 011231 G L$REPP 002062 G L10056 031734 MOL. = 010000 
HOE = 100000 G KWSRV. 016104 L$REV 002010 G L10057 032134 006452 G 
IAE = 002000 KIRELA 011443 G L$RPT 020636 G L10060 032300 MSGWLO 006522 G 
IBE = 010000 G LASCYL 002376 G L$SOFT 045100 G L10061 032560 002450 G 
IDU = 000040 G LASTRK 002372 G L$SPC_ 002056 G L10062 032716 MTD = 040000 
IE = 0 LBC §=— =_: 002000 L$SPCP 002020 G L10063 033140 MTRBRK 011421 G 
IER = 020000 G LET = 002000 L$SPTP 002024 G L10064 033322 MXF = 001000 
ILEV = CE = 001000 L$STA 002030 G L10065 033452 NBA = 100000 
ILF = 000001 LCLKTB 015740 L$SW 002332 G L10066 033730 ED = 010000 
ILOCK 002460 G LDZERO 017572 L$TEST 002114 G L10067 034030 NEGWRD 002412 G 
ILR_ = 000002 LF = 000012 & L$TIML 002014 G L10070 034316 = 004000 
INTFLG 002462 G LKS 015742 L$UNIT 002012 G L10071 034422 NEXLOC 017252 
INTSRV 020630 G LKV 015744 L10000 002330 L10072 034634 = 000015 
IOBUFF 002730 G LOCATE 017150 L10001 002344 L100735 035106 OCTHEX 015416 
IR = 000100 LOE = 040000 G L10002 014306 L10074 035204 OFFDIR= 000200 
IRLOCK 017672 LOT = 000010 G L10003 014476 L10075 035322 = 000001 
ISR = 000100 G L$ACP) = 002110 G L10004 014650 L10076 035500 ONEFIL= 000001 
ITCOUN 002402 G L$APT 002036 G L10005 014676 L10077 035756 I = 020000 
= 004000 G LSAU 021506 G L10006 016130 L10100 036230 OPRPNL 011455 G 
IxU = 000100 L$AUT 002070 G L10007 020634 L10101 036730 OR = 000200 
I$AU__= 000041 L$AUTO 1346 G L10010 020642 L10102 037700 ORLOCK 017706 
ISAUTO= 000041 L$CC 002106 G L10012 021344 L10103 040126 OSAPTS= 000000 
LN = 000041 L$CLEA 021350 G L10013 021346 L10104 040362 SAU = 000000 
I$DU_ = 000041 L$CO 002032 G L10014 021476 L10105 040622 O$BGNR= 000000 
$HRD = 000041 L$5-°0 002011 G L10015 021504 L10106 041154 O$BGNS= 000001 
ISINIT= 000041 L€$).32 006362 G L10016 021512 L10107 041674 o$oU = 000000 
ISMOD = 000041 L$MESP 002076 G L10017 021610 L10110 044002 OSERRT= 000000 
I = 000041 LSDEVP 002060 G L10020 021776 L10111 043026 OSGNSW= 000001 
ISPROT= 000040 L$DISP 002124 G L10021 022140 L10112 043644 O$POIN= 000001 
ISPTAB= 000041 L$DLY 002116 G L10022 022300 L10113 044320 O$SETU= 000001 
ISPWR = 000041 L$DTP_ 002040 G L10023 022442 L10114 044612 AR = 000010 
ISRPT = 000041 LS$DTYP 002034 G L10024 022772 L10115 044756 T = 000020 
I$SEG = 000041 L$DU 021500 G L10025 025266 L10116 045026 PATCNT 002434 G 
ISSETU= 000041 L$CUT 002072 G L10026 023440 L10117 045144 TT1 002344 G 
ISSFT = 000041 L$DVTY 006354 G L10027 023600 L10120 045662 PATT2 002346 G 
I$SRV = 000041 LSEF 002052 G L10030 023770 L10122 045672 PATTS 002350 G 
I$SUB = 000041 LSENVI 002044 G L10031 024150 MASK 002446 G PATT4 002352 G 
ISTST = 000041 L$ETP 002102 G L10032 024332 MCPE = 020000 PATTS 002354 G 
JSJMP = 000167 LSEXP1 002046 G L10033 024506 MCUTAB 004060 G PATT6 §=©002356 G 
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SYMBOL 
PATT? 002360 G 
PATI8. 002362 ¢ 
PATTS 002364 
PCLKTB o15724 
PGE = 100000 
PGM = 001000 
PHF = 0004 
PIP = 020000 
PKB. «015730 
PKC —-_- 015732 
Cs 015726 

PKV «015734 
PNT = 001000 G 
PRELOD 01772. 
PRI = 002000 G 
PRIOO = 000000 G 
PRIO1 = 000040 G 
PRI02 = 000100 G 
PRIO3 = 000140 G 
PR104 = 000200 G 
PRIOS = 000240 G 
PRI06 = 000300 G 
PRIO7 = 000340 G 
PSEL = 002000 
PSTACK 002652 G 
PTRANS 011376 G 
RCVED 002452 G 
RDDTA = 000071 
RDHDTA= 000073 
RDY = 000200 
READTD 011531 G 
READY 015122 
RECAL = ? 
REG 002576 G 
REGSET 017452 
RELEAS= 000013 
RESET 017474 

H 011132 
RHEXT 002502 G 
RHTYPE 002504 
RIP = 000021 
RMR = 0 
ROUTDO 002422 G 
RPADR 002474 G 
RPARDY 015042 
RPAS 002530 G 
RPBA 002516 G 
RPBAE 002562 G 
RPCC 002550 G 
RPCS1 002512 G 
RPCS2 002522 G 
RPCS3 002564 G 
RPDA 002520 G 
RPDB 002534 G 
RPDC 002546 G 
. ABS. 045672 


000 


RPDS 002524 
RPDT 002540 
RPEC1 002556 
RPEC2 002560 
RPER1 002526 
RPER2 002552 
RPERS 002554 
RPLA 002532 
RPMR1 002536 
RPOF 002544 
RPSN 002542 
RPVEC 02476 
RPWC 002514 
RTD = 000075 
RWU1 = 002000 
RWU2 = 004000 
RWU3_ = 010000 
SAVRPR 017326 
SBE = 000004 
SC = 100000 
SCF = 000002 
SC1| = 000100 
$C16 = 002000 
$sC2_ = 000200 
$C32 = 004000 
SC4 == 000400 
$C64 = 010000 
sc8 = 00100 
SDF = 00002 
SEARCH= 000031 
SEEK_ = 000005 
SEIZE 016662 
SELNUM 002424 
SELRUN 002342 
SELTRK 2336 
SENSOR 011341 
SETUP 017744 
SFPTBL 002332 
SIZE70 014700 
KI. _= 040000 
SNDIGT 006447 
SNK 002440 
SPIRAL 017266 
Rc 002442 
SRCTMP 902444 
STOPCK 016054 
ST.CLK 015550 
ST.LCL 619928 
T.PCL 575 


oveanee 000000 


SWITST 002332 


ADAQAAAAAIAMIA|ACCACA 


SSLSYM= 010000 
TABADD 002366 G 


TAP = 040000 
TEMP 002436 G 
TERM 011325 
TESTRG 002456 G 
TRAKAD 002340 
TRE _ = 040000 
TSTOS 004160 G 
TSTO04 004172 G 
TSTOS 004204 G 
TSTO8 004216 G 
TST11 = 004232 G 
TST12 004244 G 
TST28 004256 G 
TST33 ©=— 004272 G 
TS134 004302 G 
TST49 004330 G 
ARG.= 000001 


TSSEK1= 010003 
T$SIZE= 00000 
TSSUBN= 000000 


T$T 77777 
TSTSTS= 000001 
Lb py = 01001 


TS$AUT= 01001 
TSSCLE= 010014 
TSSDAT= 010122 


-—Oo0O—-0—-— 
—=—NNOonw 


WS OCONOUSWN—O OONOULSWN-o 


HAHAHA AA tt ts A at tH a a 
me WIWWINIWNIRINONOPUNINININININID) 2 2 A OO 


DAQHAOAQAQAAHIAQAAAAMAAAAAAAIAIAIAAAIAAAAAIAIAAAAAAAG 


MNMRIWWUENLSNAOWWO 
FONMNLSNLSNMONNAAS 


145 034636 G 
146 035110 G 
147 035206 & 
148 035324 G 
T49 035502 G 
5 022302 G 
T50 035760 G 
151 036252 G 
T52 036732 G 
153 037702 G 
754 040130 G 
T55 040364 G 
156 040624 G 
157 041156 G 
158 041676 G 
T58.1 042030 
T58.2 043030 
159 044004 G 
16 022444 G 
T60 044322 G 
T61 461 

17 022774 G 
T8 023270 G 
T9 3442 G 
UAM = 000200 G 
UNABLE 002464 G 
UNIT 002472 G 
UNS = ete 
UPE = 020000 
US1 00000 


US4 000004 
vv = 0001 

WAT 01700 
WAITMS 016756 


WATDRY 020372 
WATI 016776 
WCE = 040000 
WCF = 000040 
WCKD = 000051 
WCKHD = 000053 
WLE = 004000 
wR = 001000 
“RDTA = 000061 
WRL = 004000 
WRTD = 0000 
WRU = 


SPATCH 045506 G 
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000000 001 
ERRORS DETECTED: 0 


aut MEMORY ony ty 32256 wns. ( 126 PAGES) 


YNAMIC MEMORY LABLE FOR 7 
CIRIMACBIC. CORIMA/ CS C20,0]SVC34R.MLB,020,12]CZRIMA.DOC,,CZRIMA.HIS,CZRJMA 
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SEQ 0208 


SEQ 0209 


D1 
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SEQ 0210 
84-56 2-30 91-88 
14-448 14-450 14-452 14-454 


82-26 


1 
81-21 
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BLOWER 13-134 


—— 


CROSS REFERENCE T 


94-53 
SBS 77-3734 
CSCEFG 7=373# 

CSCLOS 7-37 
CSCLP1 7=373# 
CSCVEC 7=373# 
CLN 7=373# 
C$DODU 9 7-373# 
CSDRPT ~373# 


CSERHR 97-3734 


CSESUB 97-3734 
CSETST 7-373 


C 

CSCLCK 7=373# 
CSCLEA 9 7=373# 
C$D 





(CREF V04.00 ) 

95-72 
93-105 93-22? 
20-101 20-120 
32-57 
32-26 32-29 
33-34 

7-427 
22-21 

18-20 23-101 
42-57 42-65 
50-81 51-31 
55-28 55-28 
62-37 63-30 
78-24 79-36 
86-85 88-35 
93-248 93-264 
37-32 37-43 
41-49 41-59 
47-27 47-27 
50-84 51-34 
56-31 56-31 
64-25 64-25 
74-38 75-63 
88-39 89-52 
95-81 
93-226 93-320 
36-71 37-46 
50-87 51-49 
64-28 65-41 
78-29 79-51 
92-113 93-339 
30-20 30-126 
55-28 56-31 
93-101 94-41 
60-33 60-49 
30-37 
30-141 
60-29 95-39 
16-105 16-124 


32-31 


16-136 


36-64 57-49 
25-69 25-106 
45-48 46-48 
52-33 £2~44 
56-31 56-31 
66-29 70-66 
sp-72 80-45 


38-21 38-21 
42-47 42-67 
48-25 48-25 
52-36 52-47 
57-31 57-42 
66-33 67-38 
77-69 78-26 
91-92 92-68 
39-25 40-24 
53-30 54-29 
67-41 68-51 
81-28 82-33 
95-83 96-49 
41-34 46-27 
60-28 60-31 
95-41 


16-142 


1 
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58-47 


36-67 
4 


59-37 


83-3 
2-87 92-106 92-110 


93-117 


7 
87-115 


50-51 
89-24 


8 
93-156 


88-72 


50-75 
90-24 


SEQ 0211 


---- 


| 


| os . a 
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|CROSS REFERENCE TABLE (CREF V04.00 ) 


‘CSPNTB 77-3734 
21-12 
CSPNTF 7=373# 


| 





32-18 


70-38 
16-118 


20-9 
19-42 
93-131 
63-22 





20-219 


30-16 
30-10 


47-26 
20-161 


70-41 


16-104 
93-304 


51-23 
36-62 


20-131 
30- 


94-69% 
19-41 
87-114 
88-31 


95-70 


70-45 
20-2174 


16-112 


30-82 
87-96 


20-222 


51-48 
57-32 


20-169 
32-20 


43-42 


16-135 
25-78 


91-57% 
23-23* 


95-73 
70-47 


88-36 


16-117 


30-95 
87-106 


20-224 


92-40* 
91-58* 


20-26 
95-82 


16-123 


30-100 
87-112 


20-225 


48-25 


92-41t 
92-42 


32-14 


88-38 


$$7390 


57-35 


41-74 
59-34 


43-42 
64-25 


30-27 
91-69* 


93-103* 
93-102* 


86-18 


92-54 


86-57 
93-323 


16-129 
83-18 
90-20 


20-230 


58-36 


46-32 
63-18 


43-42 
69-25 


30-100 
91-83 


93-104* 
93-127* 


87-29 


92-91 


16-130 


87-45 
91-47 


59-26 


49-60 
70-39 


47-27 


87-96 


93-141 


93-136 


93-108 


88-37 
94-44 


16-132 


87-52 
92-47 


59-39 


50-62 
75-45 


47-27 


87-112 


93-165 


93-158* 


95-80 


91-68 
94-61 


16-135 


87-58 
93-92 


51-36 


48-25 


94-57 
93-159 


92-58 
94-71 


SEQ 0212 
16-141 21-9 
87-64 87-70 
73-97 93-138 
52-38 53-29 
48-25 64-25 


93-228" 93-296", 


92-7 


2 92-93 
95-79 


SEQ 0213 


H 1 
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52-44 53-29 54-28 55-28 56-31 65-33 4-29 


51-42 


93-303 


93-217 


CROSS REFERENCE TABLE (CREF V04.00 ) 





ee ee eee ee 


a — a a en. 


ERRWD1 


ERRWD2 


ERSTAT 
EVL 
EWN 
EXPTED 


FSAU 
FSAUTO 
F$BGN 


95-77 


40-21 


32-11% 
93-113 


22-66* 


75-35 


92-66* 


70-34% 
93-190 


22-72+ 


| I 
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93-285 


93-306 


37-28 


75-53 
9 


86-85 
93-309 


38-19* 


8 
92-109* 
70-50 
93-292 


23-61% 
44-39 


8 
93-116* 


70-53 
93-307 


23-68* 


41-35* 
55-28* 
70-52* 
78-22* 
92-65* 


70-56 


92-85* 
43-40* 


70-69* 


43-39 


8 
93-213* 
72-26* 


SEQ 0214 


es, | 


80-36* 
92-108* | 


24-22 

se | 
80-30" | 
86-635" | 


56-31 
72-44 
81-23 
92-106 

44-28 

58-19% | 
71-32* | 


SEQ 0215 
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FRMTO1 15-534 16-100 16-130 
FRMTO2 15-56# $7438 93-304 





| 
FRMT13 15 87-76 | 
FRMT14 15-67# 87-82 
FRMT15 15-684 87-89 
FRMT16 15-694 87-91 


FUNCTIN 13-314 19-14 19-20 19-21 19-41% 20-9s 20-12 20-26% 30-70% 32-14 86-18" 87-29% 88-36" 91-65 | 
92-S7* = 92-71% = 92-92% = 93=107* §=935=126% 935-185* 93-198* 95-240* 93=254% 95-289" 95-322" 93-324" G4-42e 94-60" | 


GSDELM 7=373# 22-50 42-39 42-51 57-37 58-38 59-28 


| 
G$NO 34 
GSOFFS 7-373# 60-33 60-49 95-44 97-54 97-56 97-58 97-60 98-14 98-16 98-18 98-22 98-24 
GSOFSI 7-373 60-33 60-49 95-44 97-54 97-56 97-58 97-60 98-14 98-16 98-18 98-22 98-24 | 
| 
H 


G$RADB 7-373# 

G$RADD 7-3734 98-22 

G$RADL 73734 60-33 60-49 98-14 98-16 98-18 98-24 

G$RADO 1 7=3734 97-54 97-56 97-58 97-60 

G$XFER 7=3734 98-20 

G$YES 77-3734 97-54 97-56 97-58 97-60 98-14 98-16 98-18 98-22 98-24 

GO 12-50# 

HCE 12-854 

H 12-1524 

HCRC 12-864 

HELP rial, sa t44 7-390 7-407 7-430 8-10 9-15 17 11-44 11-41 12-222 14-519 15-19 15-29 | 
5-87 15-98 16-144 Saber} 28-48 28-62 29-14 30-102 30-128 31-12 32-35 32-44 33-10 33-21 
4-11 97-44 97-75 -26 98-48 98-57 99-2 | 


3 34-22 35-54 6-48 36-55 
HERTZ 20-99% 20-115* 20-130" 20-1514 20-181 








M1 
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HOE 11-574 

| ISAU 77-3734 34-94 34-354 

ISAUTO }3=— 7=373# 31-10% 31-184 

ISCLN 7-373# 32-84 32-42 32-574 
foe ft It 33-84 33-344 


D td 
ISINIT 7=3734 30-84 30-20 30-126 30-1414 
1$MOD mit 7-399 72-3998 1-48 Na 3 94 ed 318 27-43 27-434 28-40 28-404 34-36 34-364 36-38 
- - - } 
ISMSG 77-3734 16-96% 16-1054 16-1074 16-1244 16-1264 16-1364 16-1384 16-1424 


| ath 7-373# 99-16 99-164 99-21 99-214 


ISSEG 73734 36-60 37-19 37-214 37-324 8 37-334 8 37-434 8638-17 38-214 38-21% 38-21% 38-214 38-21% 38-214 | 
38-214 39-18 39-224 39-224 39-224 39-224 39-224 39-224 39-22% 40-17 40-214 40-21% 40-214 40-214 | 
40-214 40-21% 40-214 - 41-384 41-39% 41-50% 41-834 42-31 42-354 42-364 42-67# 43- 43-424 


58-224 58-334 58-354 58-434 59-13 59-16# 59-334  60- 0-374 60-474 61-15 61-174 61-284 62-135 
62-154 62-39% 63-15 63-174 63-324 64-20 64-254 64-254 4-254 64-254 64-254 64-25 64-25% 65-18 
65-20 65-384 66-12 66-144 66-334 67-14 67-21% 67-384 8-14 68-204 68-484 = 69-254 69-254 
69-254 69-25% 69-254 69-254 69-254  70- 70-364 70-684 1-17 71-19% 71-364 72-18 72-204 72-468 


87 8 90-15 90-48 91-42 
91-924 92-39 92-S2H 92-684 92-69% 92-89% 92-90%  92-112# 93-87 93-105 935-1064 95-119# 93-1204 93-196# 
93-1974 o7-se" 93-227 93-238H 93-3154 935-321# 95-3384 94-31 94-324 94-52 94-534 94-754 95-30 95-72e | 


95-814 - 
ISSETU 7=373# 99-15 99-154 99-16 99-22 99-224 
ISSFT 98-12% 98-334 
ISSRV 77-3734 20-179% 20-1854 27-39% 27-414 
I$SUB 7-373# 36-60 37-19 38-17 39-18 40-17 41-31 42-31 43-37 44-26 45-26 46-24 47-18 48-18 
9-24 50-26 51-18 52-17 = 53-28 9-2 8635-27) = 36-30 Sel? , 5 38-18 539-15 60-22 61-15 62-135 
63-15 “20 65-18 66-12 67-14 68-14 69-20 70-33 71-17 72-18 73-13 74-17 75-21 76-12 | 
77-28 = 78-13 79-22 8 =—68 0-24 81-12) 82-14 83-13 85-25 87-20 88- i 90-15 | 
4 9en 28 93-87 = 93-105 93-105H 93-226 935-2264 93-226# 93-227 95-2274 93-3520 93-320 93-320# 94-31 | 
- bad | 
ISTST 7-373# 36-60 36-694 36-71 36-714 36-714 37-19 37-194 37-4 37-464 37-464 38-17 «ay 38-24 
38-248 38-24 = 59-18 39-184 39-25 39-254 39-25# 40- 40-174 24 40-244 40-244 41-31 41-314 | 
41-34 41-86 41-864 41-864 42-31 42-31# 42-70 42-708 42-70# 43-37 43-374 43-46 43-464 43-468 | 
44-26 44-268 44-50 44-504 44-504 5-26 45-26# 45-61 45-614 45-614 46-24 46-248 46- 46-535 | 
46-53H 46-53# 47-18 47-18% 47-21 47-30 = 47=30# =047-30# =60948-18 3=—s 48-184 = 488-21 48-2 48- 48-284 
49-24 49-24 49-85 49-854 49-854 50-26 50-264 50-87 50-874 50-87# 51-18 51-184 51-49 51-498 | 
51-494 52-17 52=17# - 2-51 52-51# 52-514 53-28 53-284 53-29 53-30 53-30" 53-308 54-27 | 
54-274 54-28 54-29, 54-29 = 54-29H 855-27 = 55-27% = 55-28 = 55-2 55-29% 55-29% 56-30 56-350# 56-51 | 
56-32 56-32 56-32# - 57-174 == 57-50 = 5 7-50# = 5 7-50H «6058-18 =“ 58-184 §=—58-32 0 58-48 =“ 5B =48# = 58-484 
59-15 59-135# 59-40 59-404 59-404 60-22 60-224 60-28 60-31 ~36 60-56 60-564 60-564 61-15 | 
61-154 61-31 61-314 61-314 62-13 62-154 62-42 62-42 62-424 63-15 63-154 63-35 63-354 63-354 | 
64-20 964-208 9864-28 64-284 8 64-284 9 65-18 65-18% 65-41 65-414 65-414 66-12 66-12% 66-36 66-368 | 


peseeieeenteoniienninienentits 
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{9 NOWsWr=0 
WhROhorononNNn— 
SOSEWN—O00 


Ng ee ee 
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90-52 90-52 90-52 90-524 91-42 91-42 91-424 91-54 91-54 91-544 91-92 91-92 91-92 91-928 | 
91-95 91-95 91-95 91-954 92-39 92-39 92-394 92-52 25-36 92-524 92-68 me me 92-684 


92-69 92-69 92-69%  92- 92-89 92-89 92-894 92-90 6-3 92-904 92-112 2-112 2-112 92-1124 
92-113 2-113 2-113) 92-1134 935-87 = 95= 93-874 93-105 93-105 95-1054 -106 =} 93-1064 “11 
93-119 §=93=119 = 93-1194 93-120 93-120 93-120# 93-196 93-19 93-196 93-1964 93-197 93-197 93-1974 93-225 
93-225 $3-225 93-2254 93-22/ 3-226 §693- 93-2264 93-22 93-227 93-2274 93-238 93-238 53-2384 93-315 
93-315 935-315 93-3154 93-320 93-320 93-320 93-3520# 93-521 93-321 53-3214 93-338 93-338 93-338 93-3384 


96-49 96-49 96-49 96-494 96-51 96-51 96-51 96-514 97-42 97-42 97-424 97-52 97-52 97-524 | 
97-61 97-61 97-61 97-614 98-12 98-12 98-12% 98-20 98-35 98-35 98-33 98-354 98-64 98-64 


98 
TSNSO 7-399% 10-26 11-514 27-43 28-404 34-36 70° 358 96-51 97-424 98-64 
T$NS1 9-94 9-25 10-84 10-25 16-964 16-105 16-1074 16-124 16-1264 16-136 16-1384 16-142 20-179# 20-185 | 
2 2 8-4 29-84 9-12 30 3 31-10 31 32-8 32-57 33-84 3 


84-184 ~64 85-254 5-74 -16# 86-100 8 87-115 88-244 88-72 89-154 89-56 90-154 90-52 
bbe ag £4 eee 92-113 93-87# 93-339 94-314 95- 95-83 96-254 =4 97-524 97-61 
TSNS2 37-214 37-32 37-334 37-43 38-21 38-21 38-21 38-214 28-21% 38-214 39-22 39-22 39-22 39-224 
39-224 39-224 40-21 40-21 40-21 40-214 40-214 mt 41-384 41-83 42-354 42-67 43-42 42-42 
43-4 43-428 435-428 43-42 44-318 44~4 45-31% 45-58 46-314 46-50 = 47-27 47-27 47-278 | 
47-278 47-278 = - - 48-258 48-25# 48-25# 49-284 49-45 49-4 49-58 49-598 49-69 
50-47 50-484  50- 50-614 -71 50-724 50-84 51-244 - 51-354 51-45 
52-244 52-36 S2-37# 52-47 53-29 53-29 53-29 53-294 55-29% 53-29% 54-28 54-28 -28 4- 
54-284 54-284 23-80 55-28 55-28 55-284 55-284 55-284 56-31 56-31 56-31 56-314 56-314 56-314 
57-214 57-31 57-344 57-42 58-224 58-33 58-354 58-43 59-164 59-33 60-374 1-17# 61-28 
-15# 62-39 63-174 63-32 - 64-25 64-25 64-258 64-254 64-254 65-204 65-38 66-144 66-33 | 
67-214 67-38 68-204 68-48 9-25 69-25 69-25 69-254 69-254 69-254 70-56 70-68 71-19% 71-36 
72-208 72-46 73-154 73-40 74-19% 74-38 75-234 8 75- 76-144 6-26 77-308 77-69 78-154 78-26 
79-244 80-264 80-58 81-144 81-25 82-1 82-30 ~234 ~ 86-244 -37 - 86-52 
86-554 86-68 86-754 86-88 88-304 88-39 89-25% 89-52 90-254 90-48 91-544 91-92 92-S2# 92-68 
92-694 92-89 92-904 92-112 93-1054 93-226 93-227# 93-320 935-3214 93-358 94-324 94-52 94-534 94-75 


9 
TSNSS) = 338-21 38-214 39-22 797568 40-21 40-214 41-39% 41-49 41-504 41-59 42-368 42-47 43-42 43-428 
45-344 45-52 47-27 47-278 48-25 48-254 64-25 64-254 69-25 69-254 93-1064 95-119 93-1204 93-196 


TSP 
TSSAVL 7=373# 


TSSEGL _7-373# 37-21 37-21 7-218 37-32 37-32 7-32 7-32 0-37-32 = 357-33) 37-330 37-334 = 37-43 7-4 
37-43 3-45 37-434 38-21 38-21 38-21 8-21 8-21 i 1 35. 1 38-21 38-21 34-31 35-31 
38-21 38-21 8-21 8-21 8-21 8-21 8-21 8-21 &-21 8-21 38-21 38-21 35: 1 38-214 
38-218 38-21% 38-21% 38-214 38-214 3-$3° 8-218 39- 9- 9- 9- § 39- § $93 $9.55 
eis ee ss, es, ies, a, a, a, a, 
40-21 40-21 40-21 40-21 10-31 40-21 40-21 40-21 40-21 40-21 10-31 40-21 40-21 40-21 
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err etree terre mera 
| 


97-528 


86-164 87-20# 88-244 
93-1054 93-227 
97-52 


85-254 


83-134 


82-144 


9-9 


45-34# 
TSSIZE 98-63 99-224 
7-373# 36-604 
9-9 
1 ~jce 16-138 


3-8 


SSEK1 38-21 


T 


ne 
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8-84 8-84 8-84 8-84 8-84 8-84 8-84 
8-84 9-25 -25 = 


8-84 9-25 # 10 10-254 10-26 
16-142 «16-1424 20-185 O-1854 27-41 7-418 7-43 
30-20 204 0- 0-1264 30-141 0-141#% 31-18 
33-34 $3 7¢ 34-20 34-208 34-35 24- -36 
37-46 7-464 38-21 38-21 38-2 -21 38-214 
39-22 39-22 39-224 39-22 39-224 39-224 - 
40-214 O-21% 40-24 40-244 4i- 41-348 41-49 


- - 7- 67-384 67-41 67-414 68-48 
69-254 69-25% 69-254 69-254 69-28 69-284 70-68 
2 - ?e- 72-504 73-40 73-40% 73-43 
75 75-664 76-26 76-264 76-29 76-294 77-52 
78-29 78-294 79-4 79-484 79-51 79-514 0-58 
82-30 - 82-3 82-334 83-22 83-224 3-36 

= 86-374 - 86-524 86-68 86-684 86-88 
88-39 88-394 88-72 88-72 89-24 89-244 89-52 
90-52 90-524 -51 91-Si# 91-92 91-924 91-95 


9 
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73-13 73-13 73-13 8974-17 - 74-178 = =75=21 
77-284 78-13 78-13 78-134 79-22 79-22 79-224 
82-14 82-144 83-135 =13 83-154 84-18 84-18 


8 
87-20 87-20 87-20H 88-24 88-24 88-244 89-15 
91-424 92-39 8 92- é 92-39H 93-87 93-87 93-874 


g 2 96- . 
TSTSTM 7=373# 16-99 16 tus 16-104 16-105 16-112 16-117 
16-136 16-141 16-142 18-20 18-35 18-44 20-101 
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io 
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93-105 
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20-120 


8-84 8-84 8-84 
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28-604 28-75 


93-227 9 94- 


31 
16-124 16-128 16-129 
20-154 20-161 20-218 


8-84 
16-1244 


94-314 


16-130 
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16-132 
20-221 
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CZRJMAO RPO? FE/HOST ISOLATOR vege V04.00 1-JAN-83 13:37:00 PAGE 5°33 


CROSS REFERENCE TABLE (CREF V04.00 ) 


T2 8-8 57-178 
T2 8-8 58-184 
T24 8-8 59-134 
T25 8-8 60-224 
T26 8-8 61-154 
T27 8-8 62-134 
T28 8-8 63-154 
T29 8-8 6¢ -204 
T3 8-8 38-174 
T30 8-8 65-184 
T31 8-8 66-124 
T32 8-8 67-144 
T33 8-8 68-144 
734 8-8 69-204 
T35 8-8 70-334 
736 8-8 71-174 
137 8-8 72-184 
38 8-8 73-134 
39 8-8 74-178 
14 8-8 9-184 
T40 8-8 75-214 
141 8-8 76-124 
T42 8-8 77-284 
143 8-8 78-134 
T44 8-8 79-224 
145 8-8 80-244 
746 8-8 81-124 
147 8-8 eed 
148 8-8 -134 
T49 8-8 84-184 
T5 8-8 40-174 
T50 8-8 85-254 
TS1 8-8 86-164 
T52 8-8 87-204 
153 8-8 88-244 
754 8-8 89-154 
T55 8-8 90-15 
T56 8-8 91-424 
157 8-8 92-394 
T58 8-8 93-874 
758.1 93-1054 
158.2 93-2274 
159 8-8 94-314 
T6 8-8 41-314 
T60 8-8 95-304 
T61 8-8 96-254 
17 8-8 42-318 
8 8-8 43-378 
TS -8 44-264 
TABADD 13-184 19-19 91-66* 
TAP 12-1304 
TEMP 13-394 38-21 38-21* 
64-25% 69-25 9-25 
5-52e 93-231% 93-246 
ERM 13-132 16-284 
TESTRG 13-474 16-99 22-63* 


93-130" 93-184% 93-208" 93-239* 93-255" 93-287 93-327+ 

Bi-97° Ge-98 Bas08e BenSde BRS, Bink Banat BSHSe 
93-294 93-299 

235-72* = =—23-97# = 25-34" = 25-102" 37-25" 37-39% 9 hhah1® = 45-278 


ee ne ene a 


en 


SEQ 0241 
48-25* 64-25 
85-36" 85-51 
60-41" 61-23 


K_ 3 
CZRJMAO RYO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-34 
CROSS REFERENCE TABLE (CREF V04.00 ) 





63-27% 


93-254 
93-198 


93-240 
93-94 


93-275 
93-211 


98-20 
98-20 


70-63* 
91-87* 


92-102 


68-27 
84-44 


32-13* 
30-29% 


22-504 
77-59 


22-37 
93-263 


93-289 


93-298 


71-21% 72938% 73-33% 75-49% 78-20% 79-32* 
92-64% 92-99%  93=353* 94-43 


22-73 41-42 41-46 41-60 41- 


4 44 
55-28 36-3) 56-31 58-26 8-30 65-26 
93-278 93-279 93-284 93-300 95 


60-33 60-34 60-49 60-50  60-55* 


26-14 s6n¢3 53-29 54-28 55-28 56-31 
79-28 80-31 82-20 83-26 90-30 90-38 





79-42% 


60-52 
92-59 


SEQ 0242 


ee 


80-34* 80-52 84-54% 85-29 


46-43 46-47 53-29 53-29 
73-21 73-31 88-36 91-72 


65-25 72-27 73-23 75-28 
92-73 92-94 93-110 93-258 — 


r 


L 3 
CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1=JAN-83 13:37:00 PAGE M-1 SEQ 0243 
CROSS REFERENCE TABLE (CREF V04.00 ) 


BCOMPL 1-154 og 14 4 30-14 60-30 95-40 


1 28-40 36-38 97-42 
07 16-126 16-138 


38 
42 
46-31 47-27) 47-27?) = 47-27) 47-27 = 4825 $5763 48-2 48-2 49-28 49-46 49-59 49-70 50-30 
50-48 5 50-72 51-24 51-35 52-24 52-37 53-29 53-29 53-29 54-28 54-28 54-28 55-28 
55-28 55-28 56-31 56-31 56-31 57-21 57-34 58-22 58-35 59-1 60-37 61-17 = 62-15 63-17 
64-25 64-25 64-25 64-25 65-20 66-14 gimet 68-20 69-25 69-2 69-25 69-25 - 71-19 
72-20 73-15 74-19 75-23 76-14 77-30 8-15 79-24 80-26 81-14 82-16 =23 =24 - 
a as 88-30 89-25 90-25 91-54 2-52 92-69 92-90 93-106 93-120 935-197 93-238 93-321 


BGNSFT 1 
BGNSRV 1-193# 7=373# 20-179 27-39 
BGNSUB ) 11-2018 7=373# 93-105 93-227 
GNS 1-225# aa 14 10-8 
BGNTST - 7-37 36-60 37-19 38-17 39-18 40-17 42-31 43-3 44-26 45-26 46-24 47-18 
48-18 49-24 50-26 51-18 52-17 53-28 54-27 55-27 56-30 57-17 58-18 59-15 60-22 61-15 
“13 63-15 64-20 65-18 66-1 67-14 68-14 69-20 70-33 71-17 72-18 73-13 74-17 75-21 
76-12 77-28 78-13 79~22 80-24 81-12 82-14 - 84-18 85-2 86-16 87-20 88-24 89-15 


5 
BNCOMP 1n5 568 7-373H 20-103 20-122 30-18 30-24 30-38 


BREAK 11-2748 72-3738 18-33 18-64 24-36 24-48 

BRESET 1-278# 73738 30-10 

CKLOOP 41-2828 7-3738 

CLOCK 1-286% 7=373# 20-101 20-120 

eee 125068 Pa87SH 32-26 32-29 --32-31 «S664 «S79K9 «SRG? 59437 
SELAY. 1-$6t4 Preh8y 22-50 42-39 «G2"51«S7=37—«SB“3B 59428 
DESCRI 1-3178 727-3734 15-27 

DEVIYP 1-3418 73734 15-17 

DISPAT 1-346# 72-3738 8-8 

DISPLA 11-3608 7=3738 

DOCLN 11-3768 27-3738 

DODU.Ss«éd= 7-3734 

DORPT 1-3854 7-3734 

ENDAU 1-389 7=3738 34-35 

ENDAUT 124014 72-3738 31-1 

ENDCLN 124138 7=3734 32-5 

Atle ry ee 8 4 

er me rt i ok AES 





4 








CROSS REFERENCE TABLE (CREF V04.00 ) 

ENDHW 1=4654 ag ih 9-25 

ENDINI 1-475# 7-37 30-143 

ENDMOD =373# 10-26 27- 77-36 
ENDMSG 1=-500# 7=373# 16-105 16-124 16-136 


ENDSRV 1-580# 77-3734 20-185 27-41 


~42 63-35 64-28 65-41 66-36 
76-29 77-72 78-29 (9-51 ~61 
90-52 91-95 92-113 93-339 94-76 


86-49 6 8- 
+ aw 93-222 93-248 935-264 93-276 


7 

RROR 11-7224 7-3734 
ERRSF 11-7268 7-373# 
ERRSOF 1-730%  7=373# 
ERRTBL 1-7344 7=373# 
ESCAPE 1-744#  7=3734 
EXIT 11-7714 7=373# 28-60 0°30 0-126 

50-51 50-75 52-20 3-29 


4-28 
89-24 90-24 91-51 92-51 93-93 


ee EES: Se ee SO ee Oe ee 


96-51 
16-142 


90-46 
93-285 


5-28 
93-101 


97-60 
60-494 


98-64 


mM. 3 
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-2 


38-21 39-22 
43-4 43-4 
48-2 48-2 
53-29 53-29 
58-33 58-43 


41-86 42-70 
55-29 56-32 
69-28 70-72 
83-40 84-64 
36-67 37-30 
49-35 49-42 
53-29 53-29 
56-31 56-31 
71-34 72-44 


98-16 


98-18 


98-24 


48-21 
77-52 


49-49 
83-22 


SEQ 0244 


49-73 
87-26 


—— 








N_ 3 
CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


HEADER 


MSDATA 


MSDECR 





1-954# 


7-37 


7-427 


55-28 


56-31 


7-427 
3 


87-1064 
3 


7=427# 
3 # 


92-514 
60-494 


93-138 
7-427 
7-427 
7-427 


10-254 


7p- 160 
48 


93-934 
95-444 


93-139 


i 14 
7-427 
7-427 


10-264 
27-454 


8 
93-1394 
7-427 
7-427 
7-427 


16-105 


8-4 


9 
8 
56-31 
231 
60-47 


32-424 


93-1018 
97-544 


33-19 


SEQ 0245 


CZRJMAO RPO? FE/HOST ISOLATOR vee V04.00 1=JAN-83 13:37:00 PAGE M=4 SEQ 0246 
CROSS REFERENCE TABLE (CREF V04.00 ) 


61-284 61-28% 61-31 61-314 62-39 62-39 62-39% 62-39% 62-42 62-424 63-32. 63-32 63-324 63-324 | 
64-2 64-25 64-2 64-2 6 6 64 | 


63-35 63-354 4-25 64-25 4-25 64-25 64-25 4-25 4-25 64-254 4-254 “234 64-254 
64-254 “258 64-254 64-254 64-28 64-284 -38 65-38 65-38% 65-384 - 5-414 =, 66-33 
= 66-334 - 6-364 67-38 -38 67-384 7-384 67- 07-414 68-48 8-48 68-484 68 
68-51 68-514 69-25 69- 69-25 09-25 69-25 -25 9-25 69-25 69-254 69-254 69-254 69-254 
69-254 69-254 69-254 9-254 69-28 69-234 70-68 70-68 70-684 70-684 70-72 70-724 71-36 1-356 
| 71-364 71-368 71-39 71-39% 72-46 72-46 72-464 72-464 72-50 72-504 73-40 73-40 73-404 73-404 | 
73-43 73-434 = §=674-38 74-38 74-384 74-384 74-41 74-418 75-63 75-63 75-634 75-634 75-66 75-664 | 
76-26 -26 76-264 76-264 6- 76-29% 77-69 7-69 77-694 77-69% 77-72 7-724 78-26 78-26 
| 78-264 78-26% 78-29 78-294 79-48 79-48 79-484 79-48# 79-51 79-514 80-58 80-58 80-584 80-584 | 
80-61 0-614 1-25 1-25 81-254 81-254 81-28 81-284 82-30 82-30 82-304 82-30 82-33 -334 
83-36 - 83-364 83-364 - 83-40% 84-64 84-644 85-74 85-744 86-37 6- 86-374 86-374 
ms - 86-524 86-52 86-6 -68 86-684 86-684 86-88 86-88 86-884 6-884 86-100 86-1004 
87-115 87-1154 - - 88-394 88-39% 88-72 8-724 89-52 9-52 89-524 89-524 - 
| 90- 90-484 90-484 - 90-S2# 91-92 91-92 91-92% 91-924 - 91-954 -68 
92-684 92-89 92-89 92-894 2-89 = 92-112 «= 92"112 92-1124 =92-112H4 92-113 92-1134 93-119 935-119 


%6 
MSDEFA NF 7-373# 60-33 60-334 60-49 ae bd 95-44 95-444 97-54 97-544 97-56 97-564 97-58 97-584 


9 98-22 9 
MSENDE _1-D74# = _7-373H _9-25H 10-258 10-264 16-105 16-124# 16-1364 16-1424 20-1854 27-418 27-43H 28-754 30-1418) 
31-184 32-574 33-344 9354-354 934-564 56-714 = 57-324 57-43K 57-464 = 58-214 §=— 538-214 §=— 58-214 =8=— 338-214 ym ors 


68-514 69-254 9-254 69-254 69-254  69- 70-684 U-724 71-364 71-39% 72-46# 72-S0# 73-408 
73-434 8674-384 74-418 = 75-634 ~664 76-26% 76-29% 77-69% 77-72 78-264 78-29% 79-484 79-51% 80-584 | 
81-254 81-284  82-30#  82-3535#. 83-36# 83-40% 84-644 85-744 86-374 86-524 ~ = -100# 
87-1154 88-39% 88-724 89-52 89-564 90-484 90-52% 91-92H 91-954 92-684 92-89% 92-112 92-1134 93-1194 
aby a ity saeco" 93-3154 93-320# 93-3384 93-339% 94-52# 94-754 94-764 95-814 95-834 96-49% 96-514 | 
MSERRI 1-049% _(7=373# 18-29 18-204 22-21 22-214 23-101 $7-1916 24-26 24-264 25-69 25-694 25-106 25-1064, 
36-67 36-674 37-30 37-30# 37-41 37-41% 41-47 41-47#@ = 41-57 41-574 41-65 41-654 41-72 41-728 | 
41-81 41-814 42-45 42-454 42-57 42-57# 42-65 42-654 44-43 44-434 45-48 45-484 46-48 
49-35 49-35# 49-42 49-42# 49-55 49-554 49-66 49-664 49-79 49-79% 50-37 50-374 50-44 * | 
50-57 50-574 50-68 50-684 50-81 50-814 51-31 51-314 51-42 51-424 52-33 - ~44 52-448 | 


71-34 71-344 = =—72-44 72-444 873-38 73-384 8674-34 74-348 74-36 74-368 75-43 75-434 75-61 75-618 | 
76-24 76-244 77-67 77-674 78-24 78-244 79-36 79-364 79-46 79-464 80-38 80-384 80-45 # | 
80-56 80-564 81-23 81-234 82-28 82-284 83-34 83-344 84-58 84-584 85-42 85-424 86-34 86-349 | 
86-49 86-49% 86-65 86-654 86-85 ~854 -3 88-354 =5 9-504 ~46 0-464 -90 91- 
92-674 92-87 92-874 2-106 92-106 92-110 aH 4 93-117 = 93=117# 935-156 935-1564 93-194 93-1948) 
93-217 93-2174 93-222 93-222H 93-248 95-248# 93-264 935-2644 93-276 5-276# 93-285 93-2854 93-303 35-3034 | 


9 9 
22-7" ab sad 93-336 93-356" 94-51 94-514 94-66 94-664 95-77 95-774 96-37 96-374 96-42 96-428 | 


96-4 
MSESCA 1-D06# 7-373# 
MSESCS 1-D10#  7-373# 
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4 
CZRJMAO RPO? FE/HOST ISOLATOR en) V04.00 1-JAN-83 13:37:00 PAGE M-6 SEQ 0248 
CROSS REFERENCE TABLE (CREF V04.00 ) 


93-315# tat 93-3204 oe-77" tt rad 93-339 ta ba oem ps 94-314 94-52 94-524 94-75 94-75# 94-76 


94-768 5-30 95-30% 95-44 95-444 95-81 95- 95-834 96-25 96-254 96-49 96-494 97-52 
97-524 97-61 97-614 98-12 98-124 98-33 98-334 98-63 98-654 99-16 99-164 99-21 99-215 
M$GENB 9 1-C38# 7=373# 60-33 60-334 60-45 60-494 95-44 95-444 
MSGETS 1=D35# 7=373# 9-25 9-254 10-25 10-254 10-2 10-264 16-105 16-1054 16-124 16-1244 16-136 16-1364 
16-142 316-1424 20-185 20-1854 27-41 27-418 27-4 27-4354 = =—28=75 28-754 29-12 29-124 30-141 3950-1414 
- 1-184 -57 “S7# 33-34 33-344 34-35 34-354 34-36 34-364 36-71 36-714 - - 
37-324 37-328 7-43 - 37-434 7-434 37-4 37-464 -21 = 8-21 - 8-21 38-21 
= 8- 38-214 38-214 8-214 38-21% 38-218 38-21% 38-21% 38-214 38-24 38-244 9- 39-22 


45-S2# 45-52 45-58 45-5 45-584 45-584 45-61 45-614 46-50 6-50 46-50# 46-504 46-53 46-534 
47-27 47- 47-27 47-27 47-27 47-27 47-27 47-27 47-27 47-278 = 47-27 = 47-27 8647-278 = 47-278 
47-274 47-27% 47-30 47-30# 48-25 48-25 48-25 48-25 48-25 - 48-25 - 48-254 48-254 
48-254 48-25% 48-25H 48-254 48-254 48-25% 48-28 48-284 49-45 49-45 49-454 49-454 49-49 49-494 
49-58 49-58 49-584 49-69 49-69 49-69% 49-69% 49-73 49-73# 49-8 49-82 49-824 49-824 

49-854 50-47 50-47 50-474 50-474 50-51 50-514 50-60 50-60 50-604 50-604  50- 1 
50-714 50-714 50-75 50-754 50-84 50-84 50-844 50-844 50-87 50-874 51- 51-34 51-344 51-348 
51-4 51-454 51-454 51-49 51-49% 52-36 52-36 52-364 52-364 52-47 52-47 2-474 = 52-478 
52-51 52-514 - 53-29 53-29 53- 3-29 53-29 535-294 53-29% 53-29% 53-29% 53-29% 53-294 
53-30 53-304 54-28 54-28 54-28 54-28 54-28 54-28 54-284 54-284 54-284 54-284 54-284 54-284 
54-29 54-294 55-28 55-28 55-28 55-28 55-28 55-28 55-284 55-284 - 55-284 55-284 55-284 
55-29 55-294 56-31 56-31 56-31 56-31 56-31 56-31 56-314 56-314 56-314 56-31% 56-31% 56-314 
56-3 56-324 57-31 57-31 57-314 8 =57=-31# 857-4 30-46 57-424 8 S7-42# = 5 7= 57-504 = - 
58-3 ~ 58 =4 “43H 58-43% 58-4 58-484 59- 59-3354 59-334 59-40 5 

7 60-474 60-474 60-56 60-564 61-28 61-2 61-284 61-284 61-31 61-314 62-39 62-39 

62-39% 62-39% 62-42 62-424 63-32 63-32 63-324 63-324 63- 63-354 4-25 64-25 64-25 64-25 
64-25 4-25 64-25 64-25 64-254 64-254 64-25% 64-254 64-254 64-254 64-254 64-254 64-28 64-284 
65-38 65-38 65-384 65-384 65-41 65-41% 66-335 66-33 66-334 66-334 - ~ 67-38 67-38 
67-384 67-384 67-41 67-414 68-48 68-48 68-484 68-484 68-51 68-514 69-25 69-25 69-25 
69-25 69-25 69-25 69-254 69-25 69-25% 69-254 69-25% 69-25# 69-254 69-25% 69-28 69-284 
70 0- 70-684 70-684 70-72 70-726 1-36 1-36 71-364 71-3564 71-39 71-39% 72-46 72-46 
72-464 72-464 72-50 72-504 3-40 73-40 73-408 73-404 73-4 “434 74-38 74-38 74-384 74-384 
74-41 74-418 75-63 75-634 75-634 75-66 75-664 76-26 76-26 76-264 76-264 76-29 76-294 
77-69 77-69 77-694 7-694 77-72 77-72% §=©78=26 26 78-264 78-264 78-29 78-298 7 

79-484 79-514 80-58 80-58 80-584 80-584 80-61 80-614 1-25 81-25 81-254 81-254 
81-28 81-284 82-30 82-30 82-304 82-30# 82-33 82-334 83-36 83-36 83-364 - 
84-64 84-644 85-74 85-744 - 86-37 86-374 86-374 =52 a 86-524 86-524 

86-684 6- 86- 86-884 86-884 86-100 86-100# 87-115 7-115# 88-39 88-39 88-39% 88-394 
88-72 88-72# 8 89-52 89-524 89-52% 89-56 9-564 -48 90- 90-484 90-484 90-52 90-S2# 
91-9 91-9 91-924 1-924 - 91-954 -68 -68 92-684 92-684 92-89 92-89 92-894 ~898 


2 94- 4- 
e383 95-81 95-814 95-814 95-8 95-834 96°49 96-49% 96-51 96-51# 97-61 97-614 98-20 98-204 
MSGETT 1-B77# 7=373# 28-604 30-20# 30-1264 32-428 


33-198 834-208 41-344 46-27 47-218 48-218 49-49 49-498 | 

49-73 49-734 50-51 50-514 50-75 50-754 52-20 53-294 54-284 55-28% 56-314 58-32% 60-284 60-314 | 
60-308 77-520 = =—83-224 = 87-264 = 89-244 = =— 90-244 91 “8 92-514 93-93 93-101# 94-418 95- 95-414 98-20 
MSGNGB 9 1-CO2# 7-3734 7-399 7-427 7-427 o~43) 7-427 r~45) 7-427 7-427 7-427 7-427 7-427 7-427 
7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 7-427 
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ZRJMAO RPO? FE/HOST ISOLATOR MACRO V04 
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OOOoD KKKEKPKR. DODWDDDDDANOODOOVOVOOOOOD o HK OUMTNOO 
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wor~ KELL. COCODDDDADDADOOOOCOOCOOOODOODOOCSOSOSSOOSOSOO OK KUM TNnNooo 
OO SS NINN EIN CUINUINICUINUICURNININUCUNUCUOUCUM } 
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| 

| 55-28 55-28 55-28 55-28 55-28 55-28 55-28 55-28 55-28 
55-28 55-08 55-28 55-28 55-284 55-284 55-284 55-286 55-284 
| 39-284 55-284 55-284 55-284 95-284 95-284 95-28H  59-28H 99-288 
35-28# 55-28H S5-28H  S5-28H 55-29 55-29" 56-31 56-31 56-31 

| 7 aS a 7S a > 98S a > OS ee eS ee ee ee 
56-31 «56-31 56-314 «56-314 56-314 56-314 «56-314 56-314 | 56-314 
So-314 56-314 56-318 56-314 56-31H 56-314 Se-514 56-318 56-514 

36-314 56-318 56-32 Se-Sow 57-21 Sr-eTH 57-29 57-88 7-99 
7-299 57- 7-314 57-32 57-32 57-32 2-82 S782 57-38 

57-32" 57-36 «57-348 «57-35 357-3505 7354 57-358) 57-37 «= 5 7=37 
57-37 57-378 57-40 57-40 57-40 57-40 57-408 57-40% 57-408 

57-49 57-498 57-498 57-50 57-S0# 58-22 58-228 58-31 58-31 

58-318 58-318 58-32 58-32 58-324 58-32" 58-33 58-338 58-34 

58-348 58-348 58-34" 58-344 58-344 58-348 58-35 58-358 58-36 

8-38 58-38 58-38 58-38 58-38 58-38 58-384 58-41 58-41 

58-418 58-414 58-43 58-434 58-47 58-47 58-47% 58-47" 58-48 

59-15. 59-15. 59-154 = 59~15#@ «59-154 59-154 «59-158 59-154 59-16 
59-28 59-28 59- 59-28 59-28 59-28 59- 59-28 59-284 
59-314 59-314 59-314 59-31" 59-33 59-334 59-87 59-37 59-374 

59-404 60-28 60-28 60-284 60-284 60-29 60-29" 60-30 


“ 64-25 64-25 64-25 64-25 - - 64-25 64-254 
64-254 64-254 64-28 64-284 65-20 65-204 65-33 65- 3 65-33 
65-334 65-38 65-384 65-41 65-414 - 66-144 66- 66-29 
66-294 66-29% 66- 66-334 66-36 66-364 67-21 67-214 67-38 

8 = -51 68-514 69-25 = 69-25 69- oon ga 
69-258 69-254 69-254 69-254 69-254 69-254 69-28 69-284 70- 
70 70-664 70-664 = 70-684 70-72 70-724 
71-34 71-348 = 71-348 71-348 71-348 71-344 71 71-364 71- 


73-38 73-38 73-38 73-384 735-384 73-384 75-384 73-384 73-40 
74-34 74-34 74-34 74-34 74-348 874-348 74-348 74-34 74-348 
74-364 74-368 74-36 74-36% 74-38 74-384 74-41 74-418 75-23 
75-43 75-434 75-434 “4 75-434 8 =75= 75-61 75-61 75-61 
75-634 75-66 75-664 76-14 76-144 76-24 76-24 76-24 
76-248 6-26 76-264 76-29 76-298 - 77-308 8677-47 77-47 


78-248 78-248 78-248 78-248 78-26 78-264 78-29 78-294 7 

36H 79- 79-364 79-364 79-36 79-46 79-46 79-46 79-46 
79-48 79=4 79-51 79-514 80-26 80-264 80-38 0-38 0-38 
80-384 80-45 80-45 80-4 80-45 80-454 80-454 80-454 80-454 
80-564 80-564 80-564 80-5 80-564 ~ 80- 50 1 0-614 
81-25 81-234 1-234 81-234 81-234 4-538 be 1-254 3-28 
82-28 82-28 82-284 5g- s¢- 84 ¢- 84 ‘ 84 : -30 -304 
83-18 835-18 83-18 83-184 83-1 85-184 - ~184 =22 
83-34 83- 83-34 83-34 83-344 3-344 3-344 ~344 ~34" 
84-58 B4- 84-58 84-584 5 4-584 ad ~584 “% 
85-42% 85-424 85-42" 85-424 2-360 5-74 5-744 raat 6-244 
86-344 86-344 86-344 86-344 86-3 6-374 “38 86- $f -49 
86-494 86-49% 86-49% 86-52 86-524 6-55 6-554 86-6 6-65 


6-65 


86-658 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


MSGNLS 


86-654 


39- 
40-214 
43-42 


37-3 
39-2 
41-49 
43-424 


86-684 
8 


$35" 
9-22 

41-494 
43-424 


98-244 


i 


41- 
43-424 





86-754 
87- 


43-424 


86-85 86-85 86-85 
87-264 87-264 87-45 
87-454 87-52 87-52 
87-58 87-58 87-58 
87-64 87-644 87-644 
87-704 87-70% 87-704 
-82 7-82 87-82 
87-89 87-89 87-89 
87-914 87-914 87-914 
87-106 87-10 87-106 
87-1064 87-11 87-112 
-35 88-35 88-35 
89-20 89-20 89-20 
89-25 89-254 89-50 
89-564 0-20 90-20 
90-248 90-248 90-25 
90-484 =52 90-524 
91-51 91-51 91-514 
91-904 91-92 91-920 
92-474 = 92-478 = =—92-51 
92-674 92-674 92-674 
92-874 92-874 92-89 
92-1064 92-110 92-110 
93-92 93-92 93- 
93-954 93 
93-1014 93-1014 93-105 


93-3364 93-3364 95-335 
94-37 94-37 94-374 
94-51 94-514 94-514 
94-664 4-664 94-664 
95-394 95-40 95-404 
5-434 8695-434 = 95-44 
95-72 95-724 95-77 
95-834 96-37 96-3 
96-424 96-424 96-424 
96-49 96-494 97-5 
97-58 97-58 97-5 
98-12 98-124 98-14 
98-2 98-204 98-2 
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20-218 20-219 20-219 20-219 20-219 B0-g19" 20-221 20-221 20-221" 30-222 20-222 30-222 30-222 20-202 
20-222 20-222 20-222 20-202 20-222" 20-224 20-294 20-224 20-203 20-285 20-225 30-225 20-225 30-225 
50-9 225 20- 0- 0- 0-399 50-399" 30-230 30-230 30-230 30-2 0-230 31-9 06=— 51-9 
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87-588 87 87. 7-64 87 87-70 87-70 87-7 7-708 87-76 87-76 87-76 87-76 87-82 
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IG-1i2# N6-11e# Vo-11e I-11ee T6117, 16-117 16-117 T6112 16-117 16-117, 16-1174 16-1178 16-1178 16-1178 
IG-1178 16-117 1-123 16-123 16-1254 16-125" 16-128 16-128 16-128 16-1284 T6-1288 16-1288 16-129 16-129 
16-129 16-1298 16-129 16-129 16-180 16-150 16-180 16-150 16-150" 16-180" 16-1508 16-1508 16-152 16-132 
sortete sbc1ste sbclsee Soctéze 30-1 y 30-161" 30-16) SB-161  DbciGle 2bc16ie Sociale Soctate Socsts  Shceig | 

184 188 19 530-219 319 $5 $0-399 50949 19, 20-219 19 fon 50-5190 SocSioe. 
19% 30-91 198 198 19% 30-9198 50-921 1 1# ie 50- 3 22 20-322 
Me A 
Sty Sty 54 Sa Se Se 50-9958 # 9 50- 0- $-5530 50-35% 50-580". 











SARs ssn the-art ee imam 


N 4 
CZRIMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-16 SEQ 0258 
CROSS REFERENCE TABLE (CREF V04.00 ) 


0-230 0-230 O-230# 20-2304 20-2304 20-230" 21-9 1-9 1-94 1-94 191 21-12 1-12 21-124 © 
1-128 1-124 1-18 1-18 1-184 5-380 6-17 at pnts 6-174 S190 6-174 6-26 26-26 
a B50" 6-264 6-264 prec o°6 0-274 “278 -82 0-82 2-88 0-824 30-824 30-824 | 
0-9 “9 0-95 0-954 ~95# 0-954 30-1 ag 0 0-1004 30-1004 2878 3 $ 36-62 36-62 
6-62% 36-624 en o-6e" -32 go-se ?=3 -3 erage" 35-38" 7-324 = 57-324 34 58-34 

= = 8-344 58-344 8-344 8-348 59-1 59-1 59-1 59= 59-154 59=15# 59-154 59-15# 
77-47 (7~47 7-47 (7-474 = 77-478 7-478 83-18 53-18 83-18 83-184 3-184 83-184 7-45 87-4 
87-45 87-45 87-458 87-454 87-454 87-454 7-52 87-5 7-5 87-524 7-52 8 87-52# 87-58 87-58 
87-58 87-584 87-584 go -38" 7 87-64 7-64 57-808 7-644 87-644 7-70 87-70 7-70 7-708 | 
87-708 87-70% 87-76 7-76 7-76 7-768 7-764 7-768 7-82 -82 87-82 87-824 87-824 87-824 | 
87-89 87-89 7-89 7-894 oe 7-894 87-91 foe 87-914 7-914 87- 7- 7- - 
87-106 87-106 7-106 7-106 7-106 -1 87-1064 87-106# 87-1064 87-1064 87-106" 87-1064 87-112 87-112 | 
87-1124 87-112% 89-20 89-20 20 pet 89-20%  89- 90-20 90-20 90-20 2 2 

-47 91-47 91-474 1-474 1-474 92-47 ae-8 92-47 92-474 2-478 = =—92-47# = 93-92 93-92 

+ ae tae + a ta # 93-97 93-97 - 9 “97H 93-974 93-138 93-138  93-138# 93-1384 


93-97 9 
~249# 93-249" 93-304 935-304 93-3044 93-3044 94-37 94-37 
95-434 95 


95=4 =4 | 
MSRADI 1-774 —7=373# 60-33 60-334 60-49 60-494 9 95=44 «= 95=448 «97-54 «97=54H 97-56 «—«97=56H «97-58 «= 7=S84 
97-60 97-608 98-14 98-148 98-16 98-164 98-18 98-184 98-22 98-224 98-24 98-244 | 


MSRNRO 1-(62# 7=373# 20"1 1 20-1014 29120 20-120# 30-37 30-374 


MSSETS 1-D52# 7=373# - 7-3 9-94 10- 10-84 11-51 11-514 16-96 16-964 16-107 16-1074 
16-126 16-1264 16-138 16-1384 20-179 0-179% 27-39 7-398 8-40 8-404 8-46 28-464 29-8 29-84 
1-10 1-104 $73 e- 3- 3-84 4-9 -9# 6-38 36-384 

7-19 7-198 7-21 "5! -214 7-218 7-33 7-33 7-334 7-334 8-17 38-174 =21 
38-21 =21 8-21 8-21 -21 8-2) 8-214 8-214 8-214 8-214 38-214 $5.55 38-21% 38-214 
39-18 184 9-22 3-55 5-45 39-22 9- 39-22 -22 39-224 9-228 39-228 39-224 
39-22 9-228 39-228 9-224 8 40-178 40-21 40-21 40-21 4 oss 40- oss 
40-214 40-218 40-214 40-214 4 “3” 40-2'# 40-218 40-214 41-31 41-314 41-38 41- 41-384 41- 
41-39 = 41-39 G1- 41-394 1-50 41-50 41-50# 41-508 42-31 42-3148 42-35 42-35 42-358 42-354 
42- 42-36 42- 4 Bye 43-37 43-314 $32 4 m2§ 43-42 43-42 43-42 43-42 43-42 
45-428 43-428 435-42 45-42 45-42H 4 4 43-428 43-428 44-26 44-268 44-31 44-31 44-318 44-314 
45-26 o27658 45-31 45-31 45-314 45-318 45-34 45-34 45-348 45-344 46-24 46-244 - 
46-314 -Si# 47-18 47-184 47-27 47-27 47-27) = 47-27) 727) 7-27) 7-27 47-2 47-278 47-278 
47-27# = 47-27# = 4 7-27H = 47-278 = 7=27H = 47-278 = 48-18 rr a 48-25 48-25 48-25 48- 48-25 48-25 | 
48-25 48-25 48-254 48-254 48-254 r 54 rary 48-258 48-254 48-25# 49-24 49-248 49-28 49-28 
49-284 49-28% 49-4 $3738 49-464 mh 74 49-59 49-59 49-59H = 49-59% = 49-70 49-70 49-708 49-708 | 

6 30-$9" 50- 30-3 39-330 50-3 50-48 0-48 50-484 50-484 50-61 50-614 50-614 
$ 0- 2 e# 650-724 1-18 33-398 23-63 1-24 1-248 51-244 1-35 51-35 51-35# 51-35# 
52-1 ag-! a -24 5 ~$8 36° ld ¢ 4a ¢ 7 ¢- 7 ¢ 7# = =52-378 3- $ 53-284 53-29 53-29 
53-29 39 53-29 53- 53- -294 2 294 294 298 54- 54-274 54-28 54-28 | 
54-28 4-28 4-28 4-28 4-284 854-288 54-284 54-284 54-284 54-284 5-27 55-274 55-28 55-28 
55-28 2769 5-28 5- ; 2-608 5-284 55-284 5-284 5-284 5-284 rs 3$- 56-31 56-31 
=31 56-31 6-31 6- 6-314 56-31% 56-518 56-314 56-314 6-318 57-1 “178 57-21 S?-21 
57-214 al 44 57-34 57-34 57-348 57-348 33-18 Fs ab rd 5 "§ 5 "s 28-450 a 58-35 58-35 
58-354 58-354 59-1 att 29-16 23-18 9-1 59-1 j= 60-228 378 37# 
61-15 61-154 61-1 61-1 61-174 61-178 62-1 62-1 62-1 - 62-154 “15# 6 ni3 65-154 
63-17 63-1 63-174 63-174 64- 9 = 64- 64- mT -2 -25 64-25 $075 cate 
64-258 64-254 <7" 7m Fad 64-254 64-254 64- 64-254 o3- 8 05-194 65-20 65- 65-208 65- 
$6") 124 4 ~ 144 “148 67-14 67-144 7-21 67- 67-214 67-218 68-14 68-144 
= = ~508 - ‘74 69- 9 69- 69-25 69° 63° a se 5 oe 5 oe 5 ~ 5 
of § +a o- § - oy a 9-254 8 - s- 5a ¢- Q- 

1-17 1-174 1-19 1-19 1-194 1- [ - Ly ?e> 72> 72-208 72- 735-1 73-1 
73-15 tat 73-15#@ 8 73-15#@ = =74-17 74-178 = 74=1 74-1 74-198 = 874-194 75-21 75-218 75- 75- 
75-2 75-2 re-l¢ re~ ee Ponte 76-14 £e-}30 76-148 oense ose" 77-30 ??- 7- - 

78-1 78-1 78-1 78-1 -15#@ 78-15# 22 224 = 79-24 79-24 79-248 79-248 80-24 80-248 





a - —_ 


SEQ 0259 — 


5 


CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-17 


CROSS REFERENCE TABLE (CREF V04.00 ) 





95-724 


93-3214 93-3214 94-31 
95-72 


95-72 


-120 
95-30 


“1064 9 
93-2384 93-2384 93-321 


94-538 


94-534 
98-124 


“1054 93-106 


93-227H 93-238 


9 
9 


94-324 
97-42 





a a eee — 


C 5 
CZRJMAO_RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-18 SEQ 0260 
CROSS REFERENCE TABLE (CREF V04.00 ) 


69-25 69-25 69-25 69-25 69-25 69-25 69-254 69-25% 69-254 69-25% 69-254 69-254 69-254 69-254 
284 70 ¢ 2 71-19 71-34 71-36 


69-28 69- -36 70-364 0-66 70-68 70-68% 70-7 70-724 1-1 71-194 71-364 
71-39 71-394 72-20 72-208 72-44 72-46 72-464 72-50 72-504 73-15 73-154 73-38 73-40 73-404 
73-43 73-434 8674-19 74-198 = 7434 74-36 74-38 74-384 8974-41 74-414 75-23 75-234 75-43 75-61 
~63 75-634 75-66 75-664 76-14 16-144 6-24 76-2 76-264 76-29 76-294 77-30 77-304 77-47 
77-478 = 77=52 77-528 -67 77-69 77-69% = = 77-72 77-72 =—78=15 78-154 - 78-26 78-264 78-29 
78-29% 79-24 79-244 79-36 79=46 79-48 79-484 79-5 79-514 80-26 80-264 80-38 80-45 80-56 
80-58 80-584 80-61 80-614 81-14 81-148 81-23 81-2 81-254 81-28 81-284 2-16 82-164 82-28 
82-30 82-304 82-33 82-334 83-18 83-184 83-22 83-224 83-23 83-234 83-34 83-36 83-364 83-40 
83-408 84-58 84-644 85-42 85-74 85-744 86-24 86-244 86-34 86-37 86-374 86-38 86-384 
86-49 86-52 86-524 - 86-554 86-65 86-68 86-684 86-75 86-754 86-85 86- 86-884 86-100 


93-238 93-2384 93-248 =249 93-249% 93-264 3-276 3-285 3-303 3-304 93-304# 93-309 93-315 93-3154 
93-320 93-320 93-321 93-3214 - 93-338 93-338# 93-339 935-339H 94-32 94-324 94- 94-378 
94-414 4-51 - 4-524 94-53 94-534 66 94-75 4-754 94-76 94-764 95-36 95-364 5-39 


94-52 - 9 
at 2 95-41 95-414 95-43 95-434 95-44 95-444 95-72 95-724 95-77 95-81 95-814 95-83 95-834 


MSTLAB 1=C29# 7=3734 16-994  16-100# 16-104# 16-105# 16-112# 16-117# 16-1234 16-1244 16-1284 16-129# 16-1304 16-1324 
1 334 18-448 20-1014 ag 20-1544 20-1614 20-2184 20-219% 20-2214 


48-254 48-254 48-284 49-284 49-35# 49-428 49-458 49-46# 49-49% 49-554 49-584 49-59% 4 49-694 
49-708 49-734 49-79% 49-824 49-854 50-30# 50-378 50-444 50-474 50-484 50-514 50-574 50-604 50-614 
5 50-714 50-724 50-754 50-814 50-844 S50-87# 51-234 51-244 51-314 51-344 51-354 51-424 51-45# 
51-484 51-49% 52-20# 52-244 52-268 52-33# 52-36# 52-37# S2-44H 52-474 S52-50# 52-514 53-29% 53-298 
53-29% 53-29% 53-29% 53-29% 53-29% 53-29% 55-29% 53-29% 53-29% 53-304 4- 4- 54-284 54-284 
54-284 54-284 54-284 4-284 - 54-284 54-284 54-29% 55-284 52-284 55-284 55-284 = 55-284 
55-284 55-284 “284 55-284 55-284 55-29% 56-31 56-314 56-3514 56-31 56-314 56-314 56-314 56-314 
56-314 56-31% 56-31% 56-324 57-214 57-29% S7-31# 57-324 57-34 57-354 57-40% 57-428 8057-498 89557-5008 
58-224 58-31% 58-324 334 58-344 58-354 58-36 58-414 58-434 58-474 58-484 59-154 59-164 59-264 
59-314 34 8 59-37# 59-394 = 60-284 60-29% 60-314 60-334 60-364 60-374 60-47" 60-494 
6 61-174 1-264 61-284 61-314 62-154 62-374 62-39% 62-424 63-174 63-30# 63-32# 635-354 64-258 


81-284 82 83-404 
85-424 85-748 86-244 86-344 86-37H 86-38% 86-49% 86-52 86-55% 86-654 86-68% 86-754 86-854 86-884 





D5 


CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-19 


CROSS REFERENCE TABLE (CREF V04.00 ) 


SEQ 0261 


95-434 


95-414 


16-1324 16-135 


16-1124 16-117 
18-44 


95-394 


20-2194 20-221 


95-364 


16-1054 16-112 
18-334 


16-1304 16-132 


93-934 


91 


1064 92-1104 ag 1 iee 92-1134 93-924 
94-664 


94-534 
30-22 
32-57 


¢ 


30-204 
30-1264 30-141 


~139# 935-1564 93-1948 93-1964 93-197H 93-2174 93-222H 93-2254 93-2264 93-2274 
32-4 


92° 


94-414 


87-1154 88-304 


pees Se, ES 
CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1=JAN-83 13:37:00 PAGE M-20 SEQ 0262 
| CROSS REFERENCE TABLE (CREF V04.00 ) 








61-17 61-174 61-26 61-264 61-264 61-28 61-284 61-31 61-314 Gen 13 62-154 62-37 62-374 62-374 
62-39 62-394 62-42 62-424 63-17 63-174 63-30 63-304 63-304 63-32 63-324 63-35 63-354 64-25 
64-25 64-25 64-25 64-25 64-25 64-25 4-25 64-254 64-25 64-254 64-254 64-254 64-25% 64-254 
64-258 -28 64-284 -20 65-20# 5-33 5-334 65-334 5-38 65-384 - 65-414 6-14 66-144 
66-29 66-29% 66-29% 66-33 66-334 06-36 66-364 67-21 67-214 67-38 67-384 67-41 67-414 68-20 
68-204 68-48 68-484 68-51 68-514 69-25 69-25 69-25 69-25 69-25 = 69-25 69-25 69-254 
69-254 69-254 69-254 69-254 9-25# 69-25# 69-25% 69-28 69-284 70-36 70-364 70-66 70-664 70-664 


74-418 75-23 “234 75-43 75-434 75-434 75-61 75-614 75-614 - 75-634 75-66 75-664 76-14 
76-144 76-24 76-244 76-248 76- 76-264 76-29 76-298 - 77-308 77-47 77-474 - 77-524 
77-67 77-678 77-678 -6 77-694 77-7 77-724 =678-15 78-154 78-24 78-244 78-244 78-26 78-264 
78-29 78-294 79-24 79-248 - 79-364 79-364 79-46 79-468 79-464 =4 79-484 79-51 79-514 
80-26 80-264 80-38 80-384 80-384 - 80-454 80-454 80-56 80-564 80-564 80-58 80-584 80-61 
80-614 81-14 81-144 81-23 81-234 81-23# 81-25 81-254 81-28 81-284 82-16 82-164 = 82-284 


86-55 86-554 86-65 86-654 86-654 - 86-684 86-75 86-754 86-85 86-854 86-854 86-88 86-884 
86-100 86-1004 87-26 = =4 87-454 87-52 87-524 7- 87-584 87-64 87-644 7-70 87-704 
87-76 87-764 87-82 87-824 87-89 87-894 87-91 87-914 7-9 -964 87-106 87-106 87-112 87-1124 
87-115 87-1154 88-30 88-304 88-35 88-354 88-35% 88-39 88-394 88-72 88-724 89-20 89-204 
89-244 = 89-254 89-50 89-504 89-50% 89-52 89-524 9-5 89-564 = 90-204 = 90-244 
25 90-254 - 90-464 90-464 ~48 90-484 90-52 90-524 91-47 91-474 1-51 91-514 1-54 
91-544 1- 91-904 91-904 91-92 91-924 91-95 91-954 92-47 92-474 92-51 92-514 92-52 92-528 
2-67 92-674 92-674 - ~684 92-69 92-69% 92-87 92-874 92-878 2-89 92-894 92-90 = 
92-106 6-306" 92-1064 92-11 92-1104 36-1108 g-1)2 a6- hee 9g-113 a BE - 93-924 93- 93-934 
93-97 95-974 93-101 93-1014 - -105¢ -106 1064 935-117 “1178 935-1174 “119 935-1194 93-120 
93-12 3-138 93-13 93-139 93-139H 93-156 93-1564 935-1564 93-194 93-1944 93-1944 93-196 93-1964 93-197 
93-1974 93-217 93-2174 93-2174 93-222 3-222# 93-222# 93-225 93-225# 93-226 -226# 93-227 93-2274 93-238 
- 93-248 2484 93-2484 93-249 93-249#% 93-264 53-2644 93-2644 93-276 93-2764 93-276" 93-285 93-2854 
93-2854 93-303 93-3034 93-3034 93-304  93-304# 93-309 93-3094 93-3509 93-315 93-315# 93-320 93-320" 93-321 
93-3214 93-336 93-3364 3364 93-338 935-338# 95-539 93-339% 94-32 94-324 94-3 94-374 ~41 94-414 
- 94-514 94-51% 94-52 94-524 - 94-534 - 94-664 94-664 94-75 94-754 94-76 94-768 | 
95-36 95-364 95-39 95-394 95-41 95-418 95-45 95-434 95-44 95-444 95-72 95-724 95-77 95-774 
<a fg a 3 95-814 95-83 95-834 996-37 96-37 96-374 96-42 96-424 96-42 96-47 96-47# 96-474 
MSWORD 1-C94# 7-373 7-427 7-427# 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 
8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 


42-57# 42-65 42-65 42-65 42-654 44-43 44-43 = 44-43 44-43# 45-48 45-48 ~48 45-484 46-278 
46-48 46-48 46-484 47-218 48-218 49-35 49-35 49-35 49-354 49-42 49-42 49-42 49-428 
49-49% 49-55 49-55 a 49-554 9-66 49-66 49-66 49-664 49-734 49-79 49-79 4 9-798 
50-37 50-37 50-37 50-374 50-44 50-44 50-44 50-444 50-514 Q-57 50-57 50-5 50-57# 0-68 
50-68 50-68 50-684 50-754 0-81 50-81 0-81 50-814 - 51-31 51-31 51-318 51-42 51-42 
51-42 51-424 52-204 $-33 52-33 52-33 ~33# 26° 52-44 52-44 52-444 53-29 53-29 53-29 
53-29 53-29 53-29 55-29 53-29 53-29 ; -29 : -29 53-29 55-294 55-29% 53-298 “298 53-298 
54-28 54-28 54-28 54-28 54-28 54-28 4-28 4-28 54-28 54- 54-28 54-28 54-284 54-284 





Eee 
aoe 
| 


PO 
PRINTB 
PRINTF 


PRINTS 
PRINTX 


KFER 


89-244 


54-284 
5-284 


viwi 





32-18 


28-604 
52-204 
91-514 


93-249 


47-26 


92-514 


93-304 


43-42 
30-1264 
54-284 
93-934 


47-27 
32-424 
55-284 
93-1014 


CZRJMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE meat 
CROSS REFERENCE TABLE (CREF V04.00 


98-204 


16-117 


30-95 
87-106 


20-224 


MMMM UN 


48-25 

33-194 
-31# 

94-414 


wa) 
Cc 


ane ee ee Ce 


16-123 
30-100 
87-112 


20-225 


95-364 


16-129 


83-18 
90-20 


20-230 


46-278 
60-314 


98-244 


16-130 


87-45 
91-47 


47-218 
60-364 


16-132 


87-52 
92-47 


48-214 
77-520 


16-135 


87-58 
93-92 


19-37 
20-215 
22-110 
24-46 
27-8 


49-494 
83-228 


SEQ 0263 


16-141 


87-64 
93-97 





_———--- ae EERE ee en re ee. 2 - ee ao eee 2 = _ 


G 5 
CZRIMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-22 SEQ 0264 
(CROSS REFERENCE TABLE (CREF V04.00 ) 

ix 
x 


iKFERF  1-a16# 7-373 98-20 
(MFERT = 1-208 = 7=3738 


| 
' 
i 
; 


